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2.0 .LANGUAGE OyERVIEW 

A SWL program consists of sfatemenfs ^ which define actions involving programmatic ' 
elements^ and declarqtions ^. whi-ch define such elementSp 

The definable elements, include variables^ procedures ^ labels and files / all having the 
characteristics that :are conventionally associated with their name^o Declardi:Ioris of 
instances of these elements.are spelled out in terms of an identifier for the element 
and a type description/ v/hich, defines the operational/aspects of-the element and. In 
many cases. Indicates q referential notatlono In the cose of a variable dec! oration, - 
the type defines the set of values that may be assumed by the variableo Types may 
be directly described in such decldrations, or they may be reference by. a type 
identifier, v/hich in turn must be defined by an explicit type declarotiono A small 
set of pre-defined types are provided, together with notations for defining new types 
In terms of existing oneso 

In general, on element may not enter into operations outside the domain indicated by 
its type, and most dyadic operations are restricted to elements of equivalent types 
.(e«go, an integer may not be added to a real number)o , Since the requirements for 
type equivalence are severe, these operational constraints are stricto Departures from 
them must be explicitly spelled-out in terms of conversion fy nctionS o 

The basic types include the pre-defined Integer , char , boolean , and real types, all 
having their conventionar connotations, value sets, and operational domainSo The 
first three are scalar types , which define well-ordered sets of values — as distinguished 
from real typesp A scatpr type may also be defined ps an brdlngl type: by enumerating 
the Identifiers which stand for its ordinal values, or as a subrange of another scalar 
type by specifying the smallest and largest values of the subrangCa Poi nter types are 

M Release. f^^Mms hot support f iTes. 
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included in the basic typeSo They represent locafion values, and other descriptive 
information, that can be used to reference instances of variables and other SV/L ele- 
mentSo Pointers are always bound to a specific type, and pointer variables may 
assume, as values, only pointers to elements of that type. 

Structured t ypes represent collections of components, and are defined by describing 
their component types and indicating a so-called structuring method o These differ 
in the accessing discipline and notation used to select individual components* Five 
structuring methods are available: set structure, string structure, array structure, 
record structure and union structuresp 

A set type represents the subset of values of some scalar type. 

A string type of length n represents all ordered n-tuples of values of character typeo 
An ordered k-tuple of these values (l^K^n) is called a sub-string o Notation for 
accessing sub-strings is providedo v 

An array type represents a structure consisting of components of the same typeo Each 
component is selected by an array selector consisting of an ordered set of n index 
values whose types are indicated in the array definitiono 

A record type represents a structure consisting of a fixed number of components called 
fields, which may be of different typeSo In order that the type of a selected field be 
evident from the program text (without" executing the program), a field selector is not 
a computable value, but instead is an identifier uniquely denoting the component to 
be selected^ These component identifiers are declared in the record type definition^ 

^ VQ^'iQnt record type may be specified as consisting of several variantS o This implies 
that different variables, although said to be of the same type, may assume structures 
whiph differ in a certain manner^ The difference may consist of a different number 
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and different fypes of componenfSp The variant which is assumed by the current value 
of a record variable is indicated by a component field which is common to all variants 
and is called the tag fieldj^ 



)resents a finite set of selectable, non-equivalent tyges 



permit one to define procedureswhose. 

lative to variant record typeSp 



JUP 



nHyp^ 
re than one type and 



rernc 



Array and record types may have associated packing attributes ^ which can be used to 
specify component space-time trade-offso 'A-oce ^s lime For - ^p c cif lc ce ffl poncntG of - 
yackcd (Gpacc - c o mprcGGcd ) struc t ures can be short e n e d by declari ng . {4> cm to be *; 
•qliqnedy ^rammcd - structurcd types 'arc used to spell out the precise rcpresentatio ti 
%£-^-Q^^ tructurQ ir n- t e rm s o f^^ alignm c ntg of its componcntSo 

T he use of crammed ' types is rcstrictod to the Go-callcd rcprcGcntat I on - "d o p Q n d ont 



Storage types represent structures to which other variables may be added, referenced 
and deleted under explicit program controL They arc also the only types that can be 
♦ used to dofino rclativG pointers / which can be used to rcfcronco yariabloG added to 
^f&t^^fo ge structur es There are three storage types, each with its own management and 
'access characteristicSo A stack type represents a collection of components of the same 
type which is accessed by a "last in-first out" disciplineo The "top" component of a 
stack can be referenced by using the stack's identifier as a pointero Sequence types 
and heap types represent storage structures whose components may be of diverse type, 
"Components of sequences must be accessed by a sequential accessing discipline (thru 
the operations of "resetting" to the first component and moving to the next component). 
Space for components of heap storages must be explicitly managed by the operation of 
oUocate and free ; the components are accessed thru pointers constructed as by-products 
of the allocate operationo The only storage type supported by Release 1 
is the default heap. 
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Many of fhe structured and storage types (and subrange types) are described in terms 
of attributes, called bounds , that specify their shapes and extentSo If the values of 
such attributes can be detemiined by a perusal of the entire program, then the asso- 
ciated type is precisely defined, and is said to be of fixed type; otherwise, the type 
is said to be of variable bound type > In the latter cose, the type represents a class 
of potential instances of fixed types. An ""instantaneous" fixed type for these is 
established whenever the type declaration is elaborated during execution (upon enter- 
ing the block in which the declaration occurs), and persists over the scope of the 
declaration. Variable bound types are not supported by Release 1. 

Adaptable t ypes are array, string, record and storage types defined in terms of one or 
more indefinite boundso They may be used as formal parameters of procedures — in 
which case the bounds of the actual parameters are assumed, or they may be used to 
define pointers to structures which are meant to be explicitly allocated — in which . 

case the actual bounds are specified in the allocate statemento Adaptable types 
are not supported by Release 1. 
Denotations for explicit values of the basic and structured types consist of constants 
— which denote constant values of the basic types, and value constructors , which are 
used to denote instances of values of set, array and record types^ Numerals, quoted 
strings of characters and the boolean constants (true , false ) are pre-definedo New 
constants con be introduced by constant declarations , which associate an identifier 
with a constant expressiono 

Definite value constructors , which include specific type information, may be used 
freely in expressions, indefinite value constructors can be used only where their 
type is explicitly indicated by the context in which they occuro 

Variables can be declared with initializat ion specifications and with certain attributes ^ 
Initialization expressions are evaluated when storage for the variable is allocated/and 
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the resultant- values are then assigned to the variable. The attributes Include accoGG - 
-ej^ buf Q S «- whi ch s p e c ify t h o pur po ses for v/hich the variablQ may be qccq^s&^ storage 
attributes -^ which specify when storage for the variable is to be allocated and when 
it is to be freed, and scope attributes -which specify the program span over which the 
declaration is to hold (the scope of the dec!aration)o Unless otherwise specified, the 
scope of a declaration is the block containing the declaration, including all contained 
sub-blocks except for those which contoin a re-declar6tIon of the identifiero 

Blocks are portions of programs grouped together as either begin-end blocks or proce - 
dureso The former are used primarily to define scope and provide shieldingo The 
latter also have identifiers associated with them, so that the identified portions of 
the program can be activated on demand by statements of the languageo 

Procedures are declared in terms of their identifier, the associated program, a set of 
attributes, and a list of formal parameterSo Formal parameters are variable declara- 
tions which provide a mechanism for the binding of references to the procedure with 
a set of values and variables - the actual parameters - at the point of activation. 
Two methods of parameter binding are provided - call-by-value and call-by-refer- 
ence ; they have their conventional connotations^ 

A function is a procedure that returns a value of a specified typeo These return - 
types are restricted to the basic types, and are specified in the procedure declara- 
tloHo 

sjdures may be used in the creation of coprocesses ^ which are distinct synct 
ous processeSo^ Tn^tead.,.af the entire procedure being executed^j2p4-'itien returning In 
line, coprocesses allow partial^x5t:w44oii^a^^^ with the single thread 

of confrol being passed bockood-larTtTamongst ni^^ the resume statemento 

Subsequent resy0ipi4afrof a coprocess causes execution to commence'""V94i4^jJie^ successor 

temst executed resume statement of the coprocess. 
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id procedures sharing common affributes can be associated v/ith segingajrvl^a — — ' 
which are identified arearT&ri4=ve--.atQiage and mana^£Lm&B+-TjfTlieelement$ associated 
with the segment. SegmerL£s--aFe-Tte1^^ by segmenPdBirl-efatii^ns^^ra segment associa- 
specified in variable and procedure declarations (as a specific attrH 

!lTr-a4dition to their other programmatic aspects, blocks (together with segments^ 
attributes) provide partial mechanisms for the shielding and sharingQi--v6nabIes and 
portions of programs, /vte'd-ules (together with scope attrU^uf^^Jprovide a mechanism 
for the shielding and sharing of de^hrrfoijons^^^^,,^^ are declared in terms of a 

•grouped set of declarations and aJJ-s^'-^'oT idenrni^rs-^o^ declared within the 

module that can be refgj:errced from without the moduleo AtKother identifiers are 
blocked-off^^,,..Jv1[6^!es are primarily designed to penTiit program repackoqiTKiS^at the 
rce'^^ language leveL 

. Statements define actions to be performed. Structured statements are constructs com- 
posed of statement lists: begin statements provide for scope control and storage alloco' 
Hon for their constifuent declarations;^if statements provide for the conditional execu- 
tion of one of a set of statement lists; loop statements cause unbounded repetitions of 
their statement list; while ^ for and repeat statements control repetitive execution of 
their statement lists; cose statements conditionally select one of their component state- 
ment lists for execution; variant cose statements allow access to the variant fields of 
records; - conf or mity case - $ to t© me nts se l o c t on© of their component statement lists fo p 

oxocution, depending on the type of the value of a union variable^ 
- ^ ' ■' . 

Control statements cause the creation or destruction of execution environmentSa They 

provide for the activation of procedures; the creation, resumption and destruction of 

coprocesses; and general changes in the flow of control. 

M Begin statements are not supported by Release 1. 
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Sforage managemenf sfrafements provide mechanisms for pushing and popping stack 
components, moving forward and backward over components of sequences, and allo- 
cating and freeing sforage for components of heaps. 

Finally,, assignment statements cause variables to assume new values^ 

A SWL program is meant to be translated, by a compilation process into a SWL, 
object programo Ob[ect programs resulting from distinct compilation can be com- 
bined by a linking process , into a single object program, and may undergo further 
transp'frrtrotion, by a loading process , info forms capable of direct interpretation 
(execution) by members of the IPL line^ 

0:)mfijle-ttme facilities , that are essentially extra-linguistic in nature, are use^ 
control the5omgilation process and construct the program to be coimu-exao ihe 
facilities divide into twd-^s:iQtegorieSo The first categoryco^^ists of the compile- 
**'^^ VQnable declarations , compire^=i443ae ossigjiuyHgTu compile-time if 

statements ^ and macro facilities p Jlhe'^seconaStr^^^^ consists of the micro mechan- 
ism, which is appIied^Jp.-^+relext produced by the first col-egorv. The micro mechan- 
ism is analogiatrs^ to the macro mechanism, but must follow normal bro^rk<:;^ructure 
Xl^^e^ tor scope, and cannot affect the existing declaration or block structur 

lisms for the incorporation of some representation'-dependent facilities 
provided. TheTr^tw^may be dependent on the SWL compiler's ajJjOcdTTon algorithms 
and on the target hardwareo^slgcu^^^The use of the^e--fdcTlities Is restricted to proce- 
dures declared with the repdep ottriiMJieo-^^^^^Tfi^^ include a cell type , that 
represents the smallest unli-^ofmrectly addressable storogeT'-' Siiaipmed types which are 
memory-depei:id^fnt structures with specified component bit-sizes and alTgrlrrveats, and 
for overriding pointer-to-type equivalence restrictionSo 
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ided set of machine depende nt Facilities including native data types^ sjxxpo^e — 
attributes and instriJcH'DrrS T^-^^qxe^ to be provided for each ■mS^i^^'^^^^^^^ ^'^'^'^ ^^L will 
generate object codes. The use of sucK3S^^rl4?le£jw to the body of the so- 

called code statemejDi-A^^rfcKmay include SWL statements ai-ia"*"3lgrrl-ei=ations as well as 



instructions. 
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.3.0 METALANGUAGE AND BASIC CONSTRUCTS 

3.1 METALANGUAGE 

In this specification syntactic constructs are denoted by English words enclosed between 
angle brackets < and >. These, words also describe the nature or meaning of the con- 
struct, and are used in the accompanying description of semantics. The symbol ::= 
is used to mean "is defined" as", and the vertical bar I is used to signal on alternative 
definition. An optional syntactic unit (zero or one occurrences) is designated by 
square brackets [and] . Indefinite repetition (zero or more occurrences) is designated 
by braces | and [ . 

The angle brackets, square brackets, braces, and the "is defined as" symbol are also 
elements of the language, and therefore are used in syntactic constructs. Such syn- 
tactic occurrences of these symbols will be underscored when necessary. 
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3.2 BASIC CONSTRUCTS 

The lexical units of the language — identifiers, basic symbols and constants — 
are constructed from one or more (juxtaposed) elements of the alphabet. 

3.2.1 ALPHABET 

The alphabet consists of tokens from a subset of the 256 — valued ascii character set: 
those for which graphic denotations are defined. 

<ascli character> ::= <alphabet> i <unprintable> 
<alphabet> ::= <letter> 

I <digit> ' 

I <special marl<> 

I <unused marl<> 

<l etter> : := A I B 1 C I D I F I G I H 1 1 1 J I K I L I M I N I O I P I Q I R I S I T I U I V I W I X I Y I Z 

lalblcldlelflglhlilllklllmlnlolplqlrlsltlulvlwlxlylz 
<digit> ::= M I 2 I 3 I 4 1 5 I 6 1 7 1 8 I 9 
<special mark> ::= + 1 - I * I / I . I , 1 ; I : I "I ' 
M 1 $ 1^ I @1 ? I ( I ) I = I < I > 

|\ l[I] IaI'. IXI 
<unused mark> ::= & I % I | \ ] !]_ I ~ 

3.2.2 IDENTIFIERS 

Identifiers serve to denote constants, variables, procedures and other programmatic 
elements of the language. 
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<identifier> ::= <Ietter>|<follower>} 

<follower> ::= <ietter> I <d!git> I _ T # 1$ I @ 

Identifiers are restricted to a maximum of 3D characters, and identifiers that differ 
only by case shifts of component letters are considered to be identical. 



3.2.3 BASIC SYMBOLS 

Selected identifiers, special marks, digraphs of special marks, and other polygraphs 
ore reserved for specific purposes in the language; e.g., as operators, separators, 
delimiters, grouperso These so-called "basic symbols" will be introduced as they 
arise in the sequel. Identifiers reserved for use as basic symbols will be shown 
as underscored, lowers-case words. 



3.2.4 CONSTANTS 

<constant> ::= <basic constant> 1 <string constant> 
<basic constant> ::= <scalar constant> 

I <compilc time variablc> "cofo. Section 12.1 ■> 

I <real constant> 

I <pointer constant> 
<scalar c6nstant> ::= <ordinal constant> 

I <boolean constant> 

I dnteger constant> 

I <character constant> 
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<ordinal constant> ::- <ordinal constant identifier> . "cofo, 4.2;1.1.3" 

<booIean constant> ::= false I true I <boolean constant identifler> 

<integer constant> ::= <integer> 1 <integer constant identifier> 

<character constqnt> ::== '<alphabet>' I <character constant identifier> 

<real constant> ::= <real number> I <real constant ident!fier> 

<string constant> ::= <string term> 

I <string term> jcot <string term>[ 

<string term> ::= <character constant> I <string constant identif!er> 

I $char (<integer>) "c.f.. Standard Functions, no2" 

I '<alphabet> <alphabet>{<alphabet>j' 

<pointer constant> ::= nil 

<ordina! constant identifler> ::= <identifier> 

<boolean constant Identlfier> ::= <identiner> 

<integer constant identifier> ::= <identifier> 

<character constant identifler> ::= <identifier> 

<real constant identifier> ::= <identifier> 

<string constant identifier> ::= <identifier> 

<pointer constant rdentifler> ::= <identifier> 

<real number> ::= <unscaled number> 
1 <scaled number> 

<unscaled number> ::= <digit> |<diglt>[ • <di9lt> |<dlgit>} 

<scaled number> ::= <unscaled number> E [<sign>] <digit> {<digit>} 

<integer> ::= <dig!t> {<digit>} 

I <digit> |<Kex digit>| <base designator> 

<digit> ::= I 1 I 2 I 3 I 4 I 5 I 6 I 7 I 8 I 9 
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<hex digit> ::= A I B I C DIE IF 

I a I b I c I d I e I f 

I <dlgit> 
<base designator> ::= (<radix>) 
<radix> ::- 2 I 4 I 8 I 16 
<sign> ::= + I - 

3.2.5 CONVENTIONS 

Identifiers, reserved words and constants must not abut and must not contain embedded 
blanks. Basic symbols constructed as digraphs may not contain embedded blonkso Other- 
wise, blanks may be employed freely, and hove no effect outside of character constants 
and string constants - where they represent themselveso 



3.2.6 COMMENTS 

Commentary strings may be used anywhere that blanks may be used except within 
character and string constants. 

<commentary string> ::= "|<comment character>} " 

<comment character> ::= <any ascii character other than double-quote 

and semicolon> 
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4oO SWL TYPES 

SWL provides four classes of programmatic objects of discourse: 

<SWL t/pe> ::= <data lype> 

I <adaptable type> m 

I <formaI lype> " 

I <file type> m 

Broadly speaking: data types are used to define sets of values that can be assumed by 
SWL variables; adaptable types define data types that have indefinite attributes, are 
meant to be explicitly "type fixed" during execution, and — together with formal 
types — may be used as formal parameters of procedures , and must otherwise be 
referenced through a pointer mechanism; formal types are associated with procedures , 
coprocesses , and labels (cofo , Section 8oO); file types are primarily used in input- 
output operationSo ^ 



"" Release 1 does not support adaptab lei formal-, or file types. 
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4 J TYPE DECLARATIONS 

SWL provides a small set- of pre-defined fypes, reserved i den Hfiers for these types, and 
notation for defining new types in terms of existing ones. 

Type declarations provide the mechanism for introducing new types. 

<type declaration> ::= type <type spec> •{,<type spec>| 

<type spec> ::= <type identifier 4tsf> = <SWL type> 
•~<t ypc identifier list> ;;"" <Idenfificr list> - 
* <iden t ifier li - st> ;:- <idQntifiQr> {,<idQntifiQr>| 

<type identifier> 2:= <identifier> 
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4.2 DATA TYPES 

Xdata type> ::= <fype> 

<type> ::= <basic type> I <sl-rucf-ured |-ype> I <storage type> 

For brevity's sake, data types will be referred to in the sequel as types ; for clarity's 
sake, references to other SWL type-varietals will be spelled out completely. Basic 
types define components that may take on simple values, while structured types and 
storage types define collections of components^ 



4.2.0 FIXED AND VARIABLEJOUND TYPES 

Many of the types (particularly the structured and storage types) are couched in terms 
of attributes that are called "lengths" or "sizes" or "bounds" or "index ranges", 
depending on the specific type and on the context in which it is being discussed. 
If the values of such attributes can be determined by a perusal of the entire pro- 
gram, then the associated type is precisely defined, and is said to be of fixed type; 
otherwise, the type is said to be of variable bound type^ In the latter case, the 
type represents a class of potential instances of fixed types. An "instantaneous" 
fixed type for these is established whenever the type declaration is elaborated during 
execution (upon entering the block in which the declaration occurs), and persists 
over the scope of the declaration (c.fa/ Scope of Identifiers, 5o2). For purposes of 
exposition, the constructs 



<variable bound type> 



and 



<fixed type> 
are introduced, the latter denoting all types but the former. Release 1 does 

not support variable bound types. 
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4.2.1 BASIC TYPES 

<basic type> ::= <scalar iype> 
I <real type> 
I <poini'er type> 

4.2.1.1 Scalar Types 

Scalar types define well-ordered sets of values for which the following functions are 
defined: 

succ the succeeding value In the set; 
pred the preceding value in the set. 

<scalar type> ::= <integer type> 

I <character type> 

I <ordinal type> 

I <boolean type> 

I <subrdnge typ.e> 

4. 2. 1. 1. 1 Integer Type 

<integer type> ::= integer I <integer type identifier> 
<integer type identifier> ::= <identifier> 
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Integer type represents an implementation-dependent subset of the integers, and is 
equivalent to the subrange (c. f. , 4.2.1.1.5) defined by 

■ nl .. n2 - -.{s - i; .. (2 - 1/ . 
-w-her e nl and n2 denote implementation - dependent in tegetsr- 

4.2.1.1.2 Character Type 

<character type> ;;= char I <character type identifier> 
Xcharacter type identifier> ::= <identifier> 

Character type defines the set of 256 values of the asclf character sei, and Is equiva- 
lent to the subrange (c.f. , 4.2.1.1.5) defined by 

$char(0) .. $char(255) 

where '$char" denotes the mapping function from integer tyoe onto character type. 
(c.f.. Standard Functions, 11.2). 

4.2.1.1.3 Ordinal Type 

<ordinal type> ::= (<ordinaI list>) 

I <ordinaI type identifler> 
<ordinat list> ::= ^identifier l!st> 
<ordinaI type identifier> ::= <identifler> 
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An ordinal type defines an ordered set of values by enumeration, in the ordinal list, 
of the identifiers which denpte the values. Each of the identifiers in the ordinal list 
is thereby declared as a constant of the particular ordinal type. 

Two ordinal types are equivalent if they are defined in terms of the same ordinal list. ^ 
Ordinal type specifications are restricted to appear only in type declarations. 

Example: The constants of the ordinal type "primary color" declared by " 

type primary color = (red, green, blue) 
are. denoted by "red", "green", and "blue", and the following relations hold: 
red < green 
red < blue 
green < blue 

A mapping from ordinals onto non-negative integers is provided by the "$integer" 
function (c.f. , Standard Functions, 11. 2). For the constants of the example, 
the following relations hold: 

$integer (red) = 
Sinteger (green) = 1 
S integer (blue) = 2 

The ordinal type declaration 

type primary color = (red, green, blue), 

hot color = (red, orange, yellow) 

would be in error because of the dual definition of the identifier "red" as a constant 
of two different ordinal types, 

M In ISUL-i two separately defined ordinal types are never considered 
to be equivalent- ^ • 
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.4.2.1.1.4 Boolean Type 

Xboolean f'ype> ::= boolean 

I <boolean type iclentifier> 
<boolean type identiRer> ::= <identifier> 

Boolean type represents the ordered set of "truth values" whose constant denotations 
are false and true, and is equivalent to the ordinal type specified by the ordinal list 

(false , true) 



4.2»ulo5 Subrange Type 

<subrange type> ::= <subrange type identifier> 

I <lower> .. <upper> 
<Iower> ::= <scalar expression> 
<upper> ::= <scalar expression> 
<subrange type identifier> ::= <identif!er> 

A subrange type represents a subrange of the values of another scalar type, defined 
by a lower bound and an upper bound. The lower bound must not be greater than 
the upper bound and both must be of equivalent scalar types. Subrange typoG may 
^ e of variable bound type (c.f., 4.2.0). 

Two subrange types are equivalent If they have identical upper and lower bounds;^ and 
an improper subrange type (i.e., one that spans its 'parent* range) is equivalent to 
its 'parent' type. 

M In ISUL-t two types arp equivalent only if they represent the 
same instance of a type definition. 
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Example ; 

type non__negaHve^integer = .. n2, 
letter = 'A» .. 'Z', 

color = (red, orange, yellow, green, blue), 
hot color = red .. yellow, 
hue = red .. blue, 
range = -10 . . 10 

Note that the subrange type, "hue", is an improper subrange of, and therefore 
equivalent to, its parent ordinal type, "color". 



4.2.2 REAL TYPE 



<real type> ::= real I <real type identifier> 
<real type identifier> ::= <identifier> 



The range and precision of real type is implementation-dependent. Conversion functions 
between real and integer type are provided (c.f.. Standard Functions, 11.2). 



4.2.3 POINTER TYPE 

Pointer types represent location values, and other descriptive information, that can be 
used to reference instances of SWL objects indirectly. 

<pointer type> ::= <direct pointer type> 

• I <rQlativc pointer typp^ 
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<direct pointer type> ::= A<type> 

I <adaptable pointer> 

I <formaI pointer> 

1 A <file type> 

■ <rolativG pointer typ0> !i= j[g[ [(<stQragQ typ0>)] ^<typ e > 

<aclaptable pointer> ::= A<adaptable type> 

<adaptable pointer to string> ::= <adaptable pointer> 

<adaptable pointer to array> ::= <adapter pointer> 

<adaptabl3 pointer to stacl<> ::= <adapfabie pointer> 

<adaptable pointer to sequence>::=<adaptable pointer> 

<adaptab!e pointer to heap> ::= <adaptable poInter> 

<formal poinrer> ::= A<fornial rype> 

<pointer to label> ::= <formal pointer> 

<pointer to procedure> ::= <formal pointer> 

<p o inter to coproe> ;:"" <formal pointcr> 

•■ ' 
Direct (relative) pointer types are equivalent if they are defined in terms of equivalent 

SWL. types (types).^ 

Direct ' (rclativof pointer types represent locations (re l aMvo locations ) of instances of 
objects of SWL type (components of objects of- storage type). 

- Built"in mapping functions b e tw e en direct pointers and relative pointers ar e provided 
» (cj.> Standard Functions/ 11.2), - 

M In ISULi two types are equivalent only if they represent the 
; same instance oiF a type definition- 
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4.3 STRUCTURED TYPES 

Structured types represent collections of components, and. are defined by describing 
their component types and indicating a so-called structuring method . These differ 
in the accessing discipline and notation used to select individual components. Five Four 
structuring methods ere available: set structure, string structure, array structure, or\d 
record structure^ and union structurosv Each will be described in the sequel. Structured 
types may be of variable bound type (c.f., 4.2.0). 

<structured type>::= <set type> 

I <string type> 

I <array type> 

I <record type> 

1 <union typc> * 



4.3.1 SET TYPE 

<set type> ::= set of <base type> 

I <set type identifier> 
<base type> ::= <scalar type> 
<set type idenfifier> ::= <identifier> 

A set type represents the set of subsets of values of the base type. The number of 
elements defined by the base type must be constrained (consider, e.g., set of integer ). 
Its value will bo implQmentatlon dependent, but no less than 256 (to accommodat O'«« » 
ISbJL limits the number of elements to LD. 



SWL LANGUAGE SPECIFICATION 4o3.2 

String Types 

4.0 SWL Types 7 December 1973 

4.3 Strucfured Types Page: "4-11 



Set types are equivalent If they have equivalent base types/^ 

Example ; The set, access, declared by 

type access = set of (no read, no write, no execute) 
represents the set of the following subsets of values of its ordinal base type: 

$access[] "the empty set" 

$access [no^read] . 

$access [no^write] 

$access [no execute] 

$access [no read, no^write] 

$access [no^read, no^execute] 

• $acc ess [no^write, no^exe cute] 

$access [no^read, no^write,. no^execute] 

where the notation $access [•..]" denotes a value con struc tor (c.f.. Value construc- 
tors. Section 5.1) for the set type, access, 

4.3.2 STRING TYPES ^ 



<string type> ::= string (<Iength>) of <character type> 

I <string type identifier> 
<Iength> ::= <positive integer "Q xp rQss> Q n> 
<sfring type identiRer> ::= <idenrifier> 



A string type of length n represents all ordered n-tuples of values of character type. 
An ordered k-tuple of these values (l^k^n) is called a sub-string. Notation for 
accessing sub-strings is provided (c.f.. Variables and Variable Declaration, 7.0). 

M In ISULi two types are equivalent only if they represent the . 
same instance of a type definition- 
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Two string types are equivalent when they have the same length.^ In the case of a 
variable length, the length Is determined when the declaration is elaboratedo 

4.3.3 ARRAY TYPE 

An array type represents a structure consisting of components of the same type. Each 
component is selected by an array selector consisting of an ordered set of n index 
values whose types are indicated by the indices in the definition. Theoretically, 
the time needed to select a component is independent of the set of index values, 
so that an array structure is an example of a so-called random-access structure. 

<array type> ::= [<packing>] <array type identif!er> 

j [<packing>] <array spec> 
<array type identifier> ::= <!dentifier> 
<array spec> ::= array [<Indices>] of <component fype> 
<indices> ::== <index> | , <index>f 
. <index> ::= <scalar type> 
<component type> ::= <type> 
<pacl<ing> ::= <pacl<ing attributes> 

Packing attributes are used to specify component storage space - component access 
time trade-offs (c.f.. Packing and Alignment, 4.8). 

If n indices are specified, then the array type has dimension n. Two array types are 
equivalent if they have the same packing and dimensions, have equivalent component 
types, and corresponding indices are of equivalent types.^ For variable index ranges, 
the index type is defined by the values of its constituent expressions determined when 
the declaration is elaborated.^^ 

M In ISULi two types are eauivalent only if they represent the 
same instance of a type definition o 

MM Release 1 does not support variable bound arrays- 
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Example; 



type hotness = array [color] o£ non^negatlve^integer, 
token^code = array [" char] oF token class^ 
token class = (alpha, numeric, specials, others), 
array 1= array [l .. 100, 100 '. : 200] of 100 .. 300, 

n = 1 .. 100, 

i2 =100 .. 200, 

si = 1.00 .. 300, 

array2 = array [il,i2] of si, 

array3 = array [i . . j] £f boolean , 

array4 = array [1 .. iP] of array3 




4.3.4 RECORD TYPE 



In a record structure, the components are not necessarily of the same type. In order 
that the type of a selected component be evident from the program text (without 
executing the program), a record selector is not a computable value, but instead is 
an identifier uniquely denoting the component to be selected. These component 
identifiers are declared in the record type definition. Again, the time needed to 
access a selected component does not depend on the selector, and the record is 
like an array, a random-access structure. 
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A record type may be specified as consisting of several variants. This implies that 
different variables, although said to be of the same type, may assume structures which 
differ in a certain manner. The difference may consist of a different number and 
different types of components. The variant which is assumed by the current value of 
a record variable is Indicafed by a component field which is common to all variants 
and is called the tag field. 



<record type> ::= [<packing>] <record type identifier>' 

l[<packing>] <record spec> 
<record type identifier> ::= <identifier> 
<record spec> ;;= record <field list> recend 
<field list> ::= [<fixed fields>,] <shifty neld> 

I Xfixed fields> 
<fixed fields> ::= <fixed field> I ,<fixed field> I 
<fixed field> ;:='<field selectors> : ■[<allgnmcnt>] ' <fixed type> 
<shifty field> ::= Xvariable bound field> ^ 

I <variant field> 
<variable bound R el d> ::= <field selector>: [<alIgnm Q nt>] <variable bound type> ^ 
<variant field> ::= case <tag field spec> of <variatIons> casend 
<tag field spec> ::= <tag field selector> : <tag field type> 
<tag field type> ::= <scalar type> 
<tag field selector> ::= <identifier> 
<variations> ::=^ <variation> | <variation>f 
<variation> ::= = <seIection values> = <variant> 
<seIection values> ::= <selection value> | <selection value>f 

M Release 1 does not support variable bound fields. 
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<selection value> ::= <constant scalar exprQss i on > [. . <conGtant Gcalcr c>cprQGGion>] *- 
<variant> ::= [<flxed fields>J <variant field> 

I <fixedflelds> 
<field selectors> ::= <field selector>|,<field selector>{ 
<field selector> ::= <identifier> 

A record type represents a structure consisting of a fixed number of components called 
fields ^ which may be of different types and are identified by field selectors, which 
are unique \\i thin any one variant and the preceding fixed fields. Multiple field 
selectors provide a concise notation for specifying fields having the same alignment - 
and type^ A record type whose last field is of variable bound type is called a 
variable bound record type; one -whose last field is a variant field is called a 
variant record type ^ which may never be of variable bound type. 

A variant field is distinguished by an explicit tag field which represents a set of 
selection values that maps onto the variants in a many-to-one manner. 

Two record types are equivalent If they have the same packing, the same number of 
fields, and identical field selectors and equivalent types for corresponding fields. 
Two variant fields are of equivalent types if they have identical tag field selectors 
and equivalent tag field types, and if variants having Identical field selectors and 
equivalent types are selected by the same selection values. The type of a variable 
bound field is determined when the declaration Is elaborated.^ 

M In ISULi two types are equivalent only if they represent the 
same instance of a type definition. 
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Example; 



type 



date - record day: 1 .. 31, 

month: string (4) of char , 
year: 1900 .. 2100 
re c end , 
status = record age: 6 ..66, 

married, sex: boolean , 
recend , 
red book - record name: string (3) oF cha r, 
status: status, 

scores: array [0 .. n] of date 
recend , 
shape = (triangle, rectangle, circle), 
angle = -180 .. 180, 
figure = record x, y, area: real, 
case s: shape of 

= triangle = side: real , inclination, anglel, angle2: angle 
== rectangle = sidel, side2: real , skew, angle3: angle 
= circle = diameter: real 
casend 
recend 

"Red book" type may be of variable bounds type by virtue of the index range of 
"scores", while "figure" type is of variant record type. 
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^ UNION TYPE 

Union fype^T^resents a finUe set of selectable, non-equivoleni* types. 

<union type>^>^umon (<type list>) 
<type Iisf> ::= <type, 

Union types permit one to define procb4ures whose j^drameters can be of more than 
one type and provide a restrictive, but mor^x^iitary, alternative to variant record 
types. 

Two union types are equi 
log types are equivgj 




Example ; 



type param = union (real, int) 
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4.4 STORAGE TYPES ^ 

Storage types represent structures to which other variables may be added, deleted, and 
referenced under explicit program control (c.f., STORAGE MANAGEMENT STATEMENTS, 
10.4). They are, in addition, the only SWL types that can be used to construct rela- 
tive pointers (c.f.. Pointer Types, 4.2.3). 

<storage type> ::= <stacl< type> 

I <sequence type> 
I <heap type> 

Storage types may be of variable bound type (c.f.. Fixed and Variable Bound Types, 4.2,0). 



4.4.1 STACK TYPE 

<stack type> r:= stock [<stack size>] of <type> 
<stack size> ::= *<integer expression> 

A stack type represents a collection of up to "stack size" components (of the same 
type) accessed via a "last in-first out" discipline. 

The "top" component of a stack (a variable of stack type) can be referenced by using 
the stack's identifier as a pointer. 



N No storage types may be declared in Release 1- The only storage 
type supported is the default heap. • 
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4A.2 SEQUENCE TYPE 

<sequence fype> ::= seq (<space>) 

<space> ::= <span> ] /<span> } 

<span> ::= [<integer expression> repj <type> 

A sequence fype represents a storage structure whose components are referenced by a 
sequential accessing discipline. 

Example ; 

seq (100 rep Integer ^ 30 rep array [l . . 30] of char ) 
4.4.3 HEAP TYPE 

<heap type> ;:= heap (<space>) 

A heap type represenh a structure whose components can be explicitly allocated and 
freed. . 



4.4.4 SEQUENCE AND HEAP SPACE 

A space attribute of the genera! form 

nl rep type U n2 rep type 2^ ... 

specifies a requirement that sufficient space be provided to simultaneously hold "nl" 
instances of variables of type!, "n2" instances of variables of type2, and so on. 
The space attribute has no other connotations whatever except those that may exist 
in the mind of the programmer. 

N»B« No storage types may be declared in Release 1- 
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4.5 ADAPTABLE TYPES ^ 

Adaptable types are structural skeletons of structured and storage types containing one 
or more indefinite bounds, indicated by an asterisk. They may be used solely to de- 
fine formal parameters of procedures (c.f.. Procedure Type, 4.6.2) and adaptable 
pointers (c.fo. Pointer Type, 4.2.3), the latter providing d mechanism for referencing 
fixed instances of adaptable types. 

<adaptable type> ::= <adap table structured type> 

I <adaptable storage type> 
<adaptab!e structured type> ::= <adaptable string> 

I <adaptable array> 
I <adaptable record> 
<adaptable storage type> ::= <adaptable stack> 

1 <adaptable sequence> 
I <adaptable heap> 



4.5.1 ADAPTABLE STRING 

<adaptable string> :;= string (*) of <character type> 

I <adaptable string identifier> 
<adaptable string identifier> ::= <identifier> 



M Release 1 does not. support adaptable types. 
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4.5.2 ADAPTABLE ARRAY 

<adapfable array> ::= [<packing>] <adaptable array idenfifier> 

1 [<pacl<!ng>3 <adapi'able array spec> 
<adapl'able array identifier> ::= <ideni'ifier> 
<adapfable array spec> ::= array [<starred l!st>] of <f'ype> 
<si-arred lisf'> ::= <star or mdex> |,<star or index>} 
<sl-ar or index> ::= * : <scalar type> I <index> I * 

An asterisk (*) without a scalar type indicates an adaptable bound of integer type. 

4.5.3 ADAPTABLE RECORD 

<adaptable record> ::= [<packing>]<adaptable record identifier> 

I [<pdcking>]<adaptable record spec> 
<adaptable record identifler> ::= <identifier> 
<adaptable record spec> ::= record [<flxed nelds>,J <adaptable type> recend 



4.5.4 ADAPTABLE STACK 

<adaptable stack> ::= <adaptable stack identifier> 

I stack [^'] of <type> 
<adaptable stack identifier> ::= <identifier> 



N«B- Release 1 does not support adaptable types. 
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4.5.5 ADAPTABLE SEQUENCE 

<adaptable sequence> ::= <adapi-able sequence identifier>- 

I seq(*) 
<adaptable sequence identifier> ::= <idenfifier> 



4.5.6 ADAPTABLE HEAP 

<adaptable heap>::= <adapfable heap identifier> 

I heap(*) 
<adapfable heap idenfifier> ::= <identifier> 



N-B« Release 1 does not support adaptable types < 
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4.6 FORMAL TYPES "^ 

<formal i'ype> ::= <label type> 

I <procedure l"ype> 
■ I <coprocc3G typQ> 

Formal types may be used solely to define formal reference parameters (c.f. , below) 
and formal pointers (c.f.. Pointer Type, 4. 2. 3). See section 8.0 for semantics. 

4.6.1 LABEL TYPE 

<label type> ::== label 

4.6.2 PROCEDURE TYPE 

A procedure type defines an optional ordered list of formal parameters together with 
an optional return type. 

• <procedure type> ::= <pjocedure type identifier> 

1 proc f<parameter list>] [<return type>] . 
<procedure type identifier> ::= <identifier> 
<parameter list> ::= (<param segment> |;<param segment>[) 
<param segment> ::= <reference params> I <value params> 
<reference params> ::~ j;£f ^formal param list> i l^readj - K ref type> 

<value params> ::= va[ <formaI param Iist> : [ [read] <val type> 



M Release 1 does not support formal types. 
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<formaI param iist> ::= <idenHfier lisf> 
<ref type> ::= <SWL type> 
<val type> ::= <type> I <adapfable fype> m 
■ <mQ|-hod> If" roF I vat 
<rei-urn !-ype> ::= <bas!c i'ype> 

Val fype is furfher restricted to exclude the so-called non-value types: storage 
types, arrays of non-value types, and records containing a field of a non-value 
type/ 

Two procedure types are equivalent if corresponding param segments have the same 
number of formal parameters, identical methods and equivalent types, and rf their 
return types are equivalent.^^'^tt^e- road accoriG attribute (c.f., 7.].].]) defines a - 
- pead"only paramotor -. 



-4; 6.3 COPROCESS - TYPE ^ 



■> <coprocQss typo> ii^ coproc «* 



M Release 1 does not support adaptable types. 

WM In ISULt two types are equivalent only if they represent the 
same instance of a type definition. 

N«B« Release 1 does not support formal types. 



SWL LANGUAGE SPECIFICATION 



4.G SWL Types 7 December 1973 

4.7 File Type Page: -4-25 



4.7 FILE TYPE M 

A file type represents a source and/or sink of data whose components, like those of 
a sequence, ore handled by a sequential accessing discipline. Although variables 
of file type may be declared, their identifiers are treated as formal (or so-called, 
ylogicaP) file-identifiers; the actual file-identifiers are outside the lexical scope 
of any SWL program, and their association with formal identifiers cannot be 
expressed in SWL (e.g., one cannot 'open' a file in SWL). All SWL file variables 
have the de-facto static attribute. 

<file type> ::= <file type identifier> 
I fije [(<file attribute>)] 

<file type 4dentifter> ::= <idGntifier> 

. <file qttribute> ::= binary I text 

A binary file's components are SWL* variables; a text file's components are of 
string type, and are called lines . If no attribute is specified, the attribute 
text is assumed. 

File components are referenced by so-called input-output statements (c.f., 10.5). 



M Release 1 does not support file types • 
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4.8 PACKING AND ALIGNMENT 

<packing at1*ribufes> ::= packed 1 unpacked -. 
■< alignmcnf> ii '^ alignQ d -^ 

A packed structure will generally require less space at the cost of greater overhead 
associated with access to its components. If a packing attribute is unspecified then 
the structure is assumed to be unpacked. An inner structure inherits the packing 

oP its immediat e ly containing structure unless the packing of th e inner structure is 

■ explicitly specified. 

Unpacked structures and their components are always aligned. Packed structures are 
olso aligned unless they are components of a packed structure, but their components 
are not. -u nles s t hey a r e explicitly a ligne ^k 

The attributes packod y unp acke d / and cramm^ {cJnf Crammed Types, 13ola2) can ?:>^4^ 
» be applied to types that are explicitly packed; unpacked; or c r ammed , 
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5.0 VALUE CONSTRUCTORS AND VALUE CONVERSIONS 



5.1 VALUE CONSTRUCTORS 



Two mechanisms are provided for explicitly denoting values: constants and value 



constructors. Constants are used to denote constant values of the basic types; 
value consfrucfors are used to denofe insfances of values of set, array, and record 
types. There are two kinds of value constructors: definite value constructors, which 
include specific type i den Hfi cation; and indefinite value constructors, whose type 
must be determined contextual lyoW 



5.1.1 CONSTANTS AND CONSTANT DECLARATIONS 

<constant declaration> ;;= const <constant spec list> 
<constant spec list> ::= <constant spec> | ,<constant spec>} 
<constant spec>;;=<constant identifier 445t-> = <constant Gxprossion> 
• <constant identifier Usi-> :;= <identifier 4+st> 

A constant spec associates one or more identifier^ with the value of the constant, 
e xpr e ssion^ — A constant expression is an expression whose factors are either constants 
or paronthosiz e d constant oxprossions (c^f*/ Constants, 3t2t4/ and Expressions, 9,0)^ 



M ISUL supports only definite value constructors for sets -i and 
indefinite value constructors for array initialization. 
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'5.1.2 DEFINITE VALUE CONSTRUCTORS 

<clefmite value constructor> ::= $<value type Id> [<value elements>] 
<va!ue type ld> ::= <set type identiner> 

- I <array type identifier^ 
■ ^ ' 1 ^record type idontifiQr> - 

<va!ue elements> ::= <value element>|,<value element>} 
<value element> ::= [<rep spec>J <expression> 

■ I [<rep speG>J <indefinite value construGtor> - 
<rep spec> ::= <positive integer expression> rep 

Identifiers for definite value constructors are obtained by prefixing the "target type" 
identifier with a dollar sign, "$". The types of the elements of the value constructor 
must match the ordered set of components of the specified structure type. Definite 
value constructors may be used wherever an expression can be used, 

5.1.3 INDEFINITE VALUE CONSTRUCTORS 

<indefinite value constructor> ::= [<value elements>j 

Indefinite value constructors can be used only where their their type is explicitly 
Indicated by the context invvhich they occur: as arguments of conversion functions 
(c.f.. Section 5o2), as elements of definite and indefinite value constructors, and 
for the initialization of variables (c.f.. Section 6.0). They may be o. set, array or 
record depending on their context. ISUL supports indefinite value 

constructors for array initialization onlyi and in this case 

the value elements must be constants. 
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R^ample ; 



For the\types defined by 



IZEi 



^or = (red, green, blue), 
vF string (3) of char , 
A = OR^ay [l . . 20] of integer , 
R1 = record^ t : array [] . . 3] of booledn. 




instances of definjre value constructors for the types Rl ana\R2 follow, with their 
fine structure ^displayed. 

[] [[3 rep true], 'SBC] 

I <string constant> for field s 

-<indefinite value constructor> for field t 
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.^■^R^ [[red, blue] , ^CBS', [20 rep 2] , [[3 rep fa he] , 'BCS']] 

L<indefmite^>0kie' constructor> for F4 
^<mdefinlte vaIue..-€t5nstructor> for F3 
<^trlng constarTt^*>fefr3 
^<indefinite vaIue-'''constructor> foT" 



Each of tFi^-^onstants used In the above examples could have been repTo^red^y 
Jfessions that evaluate to the required types. 
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5.2 TYPE CONFORMITY AND VALUE CONVERSION 



The operations of assignment and comparison (and most binary operations) are defined 
only for operands of equivalent types. This requirement is relaxed only to permit 
values of a subrange type and values of its parent type to enter into the same opera- 
tion. When it is necessary to operate on operands that do not meet the strict 
requirements for type equivalence, the conversion functions described below must 
be used. These map values of a "source" type into values of a "target" type and 
are defined only for so-called conformable source and target types. 

5.2.1 TYPE CONFORMITY 

Type conformity is a weak form of equivalence that does not require identical "com- 
putational " attributes, bounds, packing, alignment or field selectors. Unlike equiva- 
lence, conformity is not a transitive concepts 

Integer types and character types conform. 

Integer types and real types con fojrm. 

integer types and ordinal types conform. 

String types are mutually conformable. 

Array types conform if they have the same dimension, their corresponding index 

ranges span the same number of elements and their component types conform, * 

Record types conform if they have the same number of fields and corresponding 

fields conform. 

String types, and one-dimensional array types with character-type components, conform. 
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5.2.2 TYPE CONVERSION FUNCTIONS . 

Identifiers for conversion functions are obtained by prefixing the target type identifier 
with a dollar sign. The function so identified will then accept as an argument values 
that are in type conformity with the target type. 

5.2.2.1 Primitive Conversions 

These consist of the "pre-defined" functions (c.f.. Standard Functions, 11.2). 

$integer (<real expression or char expression or ordinal expression>) 
$real (<integer express! on>) 
$char (<integer expre5sion>) 

$string (<Iength>, <string expression>[,<char expressIon>]) 
and the "definable" functions (c.f., below) 

$<ordinal type identifier> (<integer expression>) 

$<string type identifier> (<string expression> [,<char expression>]) 



5.2.2.1.1 Pre-defined Primitive Conversions 

Conversions between the basic types are the conventional ones and are defined in 
section 11.2. In conversions between string types, the source string is converted 
to match the specified length either by truncation (on the right) or by appending 
(on the right) the required number of so-called "fill" characters. In the "long" form 
of the string conversion function, the fill character is explicitly specified by the last 
parameter; in the "short" form it is implicitly specified to be the space character. 
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5.2,2.1.2 Definable Primitive Conversions 

Conversions to ordinal type. return the value whose ordinal number is the value of the 
integer. expression used as argurnent. 

String-to-string type conversions are analogous to the pre-defined string-conversion func- 
tion, with the length being specified by the length associated with the target type. 



5.2.2.2 Structured Conversions 

Conversions between strings and one-dimensional arrays of characters ore analogous to 

string-to-string conversions. No other struct uned conversions are supported 
by ISlilL. 

^-to-orroy and record-to-record conversions are defined recursively in terms of 
componehksConversions. When a structured conversion involves string compopafvt con- 
version, the filNcIiaracter specified in, or implied by, the function^Prorm will be 
used whenever filling ij"s:^uired. The two forms are identic^Wo the two forms 
of definable string-to-string cohv^rsions: 

$<array type identifier> (<array expfes^n>[,<char expression>]) 
$<record type identifier> (<pe€ord expressioriX£^<char expression>j) 
<array expression> :j.?^^expression> 

I <indefinite value constructor> 
<recor:d^xpression> ::= <expression> 

I <indefinite value constructor> 
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A] = array [1 ..10] of si, 
si = string (20) of chary 
2 = array [l 1 . . 20] of s2, 
s2^\string (10) of cha r, 
Rl = re^d 




SWL LANGUAGE SPECIFICATION 



6.0 Variables, Atfributes and Segmenfs 

6.1 Variable Declarafion 



6.2.] 

Access Attribufe 



Page: 6-1 



6.0 VARIABLES, ATTRIBUTES AND SEGMENTS 
'6.1 VARIABLE DECLARATION 

<variable decIaration> ;;== var <variable specs> 

<variable specs> ::= <variable spec> {,<variable spec>} 

<variable 5pec> ::= <variable idenfifiers> : [<affributes>] <t-ype> [<inifialization>] 

<variable idenfifiers> ::= <variable idenfifier> | ,<variable idenfifier>} 

<variable identifier> ,::= <identifier> 

A variable spec introduces a new variable in terms of the identifier that denotes the 
variable, a type, an optional set of so-called attributes and an optional value 
initialization (ccfoy 6,3). 



6.2 ATTRIBUTES 

<attributes> ::= [<attribute> |,<attribute>[] 
<attribute> ::= ■ <acccs3 attributQ> 
I <storage attribute> 
1 <scope attribute> 
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le^Jatter case, the variable may be initialized, may not be an cb]ei^Mi5r 
assignment, dnS'^TifK^c.^be^ used as an actual parameter on|y,J-HiTecorresponding 
formal parameter is a v^ parar^^ reF parameter (c.F., 

Section 4.6. 2)p Access to su^J:i--st5^=^called 'Veod^-^o^aljjr" variables may or may not 
be completel^^^j^i::rfcn'cea^ thus, the results of attemptingJ^o"""Cr}+sc..aj*ead'-only 
le (except by direct assignments) may be undefined. 

6.2.2 STORAGE ATTRIBUTES M 

<slorage attribute> ::= static I ^segment idonHfior> 

Storage attributes specify when storage for a variable is io be allocated (and ini- 
tialized if necessary) and freed. If neither storage attributes nor scope attributes 
(see below) are specified, allocation and initialization occur automatically each time 
the variable declaration is elaborated (on entry to the block containing the declara- 
tion), and freeing occurs automatically on each exit from that block (c. f. , Section 
7.0). Variables so treated are called automatic variables. If a storage attribute 
is specified, then allocation and initialization occur once and only once — at a 
time no later than initial entry to the block containing the declaration, and storage 
is not freed on exits from that block. - When the storage attribute is a sogmont- - 

4< l9ntifiQr (ci f , ^ Section 6^5); then storag e is allocatod within the Gpccificd sog- 

■ mo nt. — Sogmonts havo the d9"facto static attribute! 

6^2. 3 SCOPE ATTRIBUTES 

<scope attribute> ::= xdcl I xref 4--e xtQrnal • 



M Release 1 does not support static storage- 
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Variable identifiers are used in varable denotations. Scope attributes specify the 
regimen to be used to associate instances of variable identifiers with instances of 
variable specs. The programmatic domain over which a variable spec is associated 
with instances of its associated variable identifiers that are used in variable denota- 
tions, is called the scope of that spec. Ifno scope attribute is specified, the spec 
is said to be internal to the block in which it occurs, and a so-called block- 
structuring regimen Is used (c.f.. Section 7.2). Internal variables are always 
automatic variables (see above) unless given a storage attribute, while scope- 
attributed variables are always, static. Each of the scope attributes specifies 
certain deviations from the block-structuring regimen. Broadly speaking, a var- 
iable identifier associated with an xref variable can be used to denote a similarly 
idientified vciriable havlrig the xdcl Qtfribute, subject only to redsondble rules of 
speclficational conformityo Extg tffi al variables are introduced to permit SV/L prO'" 
■ grams to bo int e rfaced with programs written In other languages; they may bo 
^ ^foroncod whonovor and whorover tholr spec appoa por Neither xref nor external 
variables can be initialized, and each carries the de-facto static storage attribute. 
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6.3 INITIALIZATION 



<initiaIizatIon> ::= 



:= <expreoGlon> <constant > 
I := <indennlte value constructor> 



Since initialization is an "allocation-time" assignment to the variable, the initia- 
lization expression must satisfy the requirements of the assignment statement (c. f. , 
10.1). 

An astorisk; — "*", can be us©d to denote an uninitialized ©lement of q value con- 
■ structor uocd for initializatloni 



ifanf; Initialization expressions are evaluated when the variable dec 



is elaborated — on entry 
static variables is restri< 
constants. 



)c!<contaIningji]i 
Tsfant expressIonT~or 



FToru Initialization of 
constructors all of whose 



Examples of initialization are used throughout the remainder of this section in fhe 
explanation of variable references. ^ . 



ISUL only supports initialization of static variables which are 
•scalarsT strings-! or unpacked arrays. Initialization is restricted 
to constants or value constructors all of whose fields are 
constants. . 
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6.4 VARIABLE REFERENCES 



<variable> ::= Xvaridble reference> 
<variable reference> ::= <variable identifier> 

I <pointer reference>A 
I <sub5tring reference> 
I <subscripted reference> 
1 <field reference> 



M 



6.4.1 POINTER REFERENCES 

<pointer reference> ::= <pointer variable> I <function de$ignator> 

<pointer variab!e> ::= <variable> 
Whenever a variable reference denotes a variable of pointer type it is referred to 
as a pointer reference and the notation 

<pointer reference>A 

may be used to denote a variable whose type is determined by the type associated 
with the pointer variable. If another variable of pointer type is denoted by this 
reference, then 

<pointer reference>AA 

may be used as a variable reference. 'Note that variables of pointer type can be 
components of structured variables as well as valid return types for procedures. 



M Release 1 does not support substring references. 
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6.4.2 SUBSTRING REFERENCES "" 

<substring reference> ::= <string variable> (<substring spec>) 
<string variable> ::= <variable> 

<substring spec> ::= <first char> [,<substring length>J 
<first char> ::= <positive integer expression> 
<substring length> ::= <positive integer expression> 

I * 

Values of string variables (of length n) are ordered n-tuples of character values. 
Substring references denote ordered sub-tuples of string variables. If "S" denotes 
a string variable (of length, say, n) then: "S(i)" denotes the i-th character of S; 
S(i,l<)" denotes the sub-tuple of S consisting of the i-th through the (i+k-l)-th 
character of S;"S(i,*)" is equivalent to "S(i,n-i +1)" . 

For purposes of type equivalency, "S(i,k)" denotes a value of type string (k). 

Example ; 

If a string variable is declared by 

vor S : string (6) of char := 'ABCDEF'; 

then the following relations hold 

S(l) = 'AV 3(2,5) = 'BCDEF" 

5(6) = 'P S(2,*) = S(2,5) 

S(l,6) = S S(l,*) - S. 



N Release 1 does rtot support substring references- 
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6.4.3 SUBSCRIPTED REFERENCE 

<subscripted reference> ::== <arra/ variable> [<subscripts>J 
<array variable> ::= <variable> 
<subscripts> ::== <subscript> { ,<subscript> [ 
<subscript> ::= <scalar expression> 

A subscripted reference denotes a component of an array variable, whose value type 
is the component type of the array variable. Subscript types must be equivalent to 
the corresponding index types specified for the array variable. However, for pur- 
poses of computational equivalency, values of q subrange type and values of the 
parent type are treated as being of equivalent type (the parent type). 

Example ; 

If an array variable is specified by 

var K X array [l.^Sj of integer := U/ 2, 3,4, 5 J 
and an integer variable is specified by 

var i : integer := 5 

then the following relations hold 

A[i] = 5 
A[i-l] =4 

A[l-4] = 1 
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6.4.4 FIELD REFERENCES 

<fieid reference> ::= <record variable>,<field selector> 
<record variable> ::= <variable> 

A field reference denotes a field of a record variable. Since field selectors are 
unique only within the scope of their parent record type, the record variable must 
be specified. The field denoted by a field reference may be of record type, in 
which case 

<record variable>.<field selecfor>.<field selector>. 

becomes a valid field reference. 

The field identifiers within a variant are available as field selectors only within the 
constituent statement list of a variant case statement (c.f.. Section 10.2.8). 

Example ; 

For the record variable defined by 

var R : record age : 6 .. 66, 

married, sex : boolean , 
date : record day : 1 .. 31, 

month : 1 .. 12, 
year : 70 ..80 
recend , 
recend • 

:= [23, false, mje, [3,5,73]] 

the following relations hold 

R.age = 23 

R. date, year = 73 . 



SWL LANGUAGE SPECIFICATION 



6.0 Variables, Attribufes and Segments 
6,5 Segments and Segment Declarations 



Page: 6-9 



.5 SEGMENTS AND SEGMENT DECLARATIONS 

Cement declaration^ ::= segment <segments> ,<segments> 
<segrnbnts> ::= <segment identifiers> : [ [<access attributes>J 
<segment r4^ntifiers> ::= <segment identifier> | ,<segmerv|x1aentifier> } 
<segment idenHfier> ::= <identifier> 
<access attributes^\:= <access attribute> | ,<aa2^s attribute> } 

A segment is a static storage o^a for specifie^variables and procedures. The access 
attributes of variables and procedur^decMred to be in a particular segment must be 
a subset of that segment's access attp^5ui^s. The combinations of segment access 
attributes to be supported will b^sMmplemenna^ion dependent, but will include 
[read], [read, write] and^(^ecute] . 

Example; 



segmept^ symbol info : [ read , write ]; 

name table : [symbol info] array [alot] of name , 
attribute table : [symboMnfo] array [alot] of attr , 
keywords : [symbol info, read ] array [32] of name ; 
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7.0 BLOCKS, MODULES, AND COMPILATION UNIT 

7.1 DECLARATIONS 

Through the use of a declaration an identifier can be declared as a symbol with 
specific declared attributes. The range of references over which the identifier 
retains its declared meaning is known as the "scope" of the identifier. 

<declaration list> ::= <declaration>|;<declaration>} ; I <empty> 

<declaration> ::= ■ <micro dQclaration> - > (cJiy 1240) 

' I <Gcgmcnt dQclaration> ■ (c»fi>/ 5,0) 

I <constant declaration> (c.fo, 5.1) 

I <type decIaratiori> (c.f./ 4.1) 

1 <variable declaration> (c.fo, 6.1) 

^1 < modulo declarction> ■^ (cifi/ 7^3) 

I <label declaration> (c»f., 8.2) 

I <procedure declaration> (c.f., 8.1) 
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7.2 BLOCKS « 

Unless further limited, the scope of an identifier is the block in which the identifier 
IS declared. Thus, the symbol is known within the block and the block's inner 
blocks, but is unknown outside the block. 

<b!ock> ::= <begin statement> (c.f., 10o2J) « 

1 <procedure declaration> (c.f., 8.0) 

Example ; 

var choices : set of *B* .« 'Y', 

last, result : union ( boolean , 'BV^. 'Y*); 
begin 

var last : [ static ] 'A' .. .'Z'; 
while last < 'Z' do 
last := "^succ (last); 
If last in choices then 

result := last 
orif last = 'Z' then 
last := *A'; 
result := false 
ifend 
whilend ^ 
end ; 
if not ( boolean :: result) then 

last := result 
ifend 

M Release 1 does not support begin blocks. 
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^MODULES 

A mooule is a shield around a set- of declarations. 

<mobbIe declaration> := module [<module ident-ifier>] [(<prongs>)]; 

<declarai-lon lisf'> 
modend [<module ideni-ifier>J 

An identifier declared\vifhin a module cannot be referenced frgm without the module 
unless the identifier is de^ared as a prong. 

<prongs> ::= <identifier\Jist> 
<module identifier> r:= <ia^n 

Declaring an identifier as a prong makb^ thaj/identifier known immediately outside 
the module. 



Example; 



module (upper case); 

var mine : set of u^er^case; 

type upper^case/^ 'A' ♦ . *Z" 

modend 



.is equivalent 

tyge upper case = 'A' .. *Z'; 
loduie ; 

var mine : set of upper case 
modend 
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■ Noto thai- a modulo is not a block and thaf the dcclaraflon v/ifhin the module arc 
-e va lu a t ed v/h o n th e d e clarations oF the block containing th ^ m od ul e a i:e--evoiy-ate4r- 

7.4 GLOBAL VARIABLES 

A variable declared with the xdcl, xref , or oxt -e-m^ attribute (c.f., 6o2.3) is a 
static global variable in the sense that it can be referenced by any other program 
that declares it. 

7.5 COMPILATION UNIT 

A compilation unit is the basic unit of input that can be compiled. 

module r<module identlf ier>l 
<compi lotion unit> ;:= <modulQ dQclaration> <declaration list> 

modend [^<module identif ier>I[ 

Any variables declared within tne ouFermosr mo o-bH-e- out not in a procedure declaration 
will implicitly have the static attribute. - Any variable that is declared as ca p r o fig- 
in the outermost module will implicitly be given the xdcl attribute unless it was 
^ de cl a r ed with the xref or external attribu j^^^ 

7.6 FIELD SELECTORS 

The scope of an identifier that is a field selector is the record definition itself 
(c.f., 4.3.4, Record Type). 
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8.0 PROCS, COPROCS v AND LABELS 

A procedure decJaraHon defines a portion of a program and associates an identifier 
with it so that it can be activated (i.e. , executed) on demand by other statements 
in the language. A procedure can return a value of some basic type, in vh ich 
case it is referred to as a function and is invoked as a factor in an expression. If 
a procedure returns no value it is invoked by a procedure call statement^ or a copro-f 
cess creat e statement. 

The value of a function is the value last assigned to its procedure identifier before 
returning (either by falling through the procend or by an explicit return statement). 

A procedure call statement causes the execution of the constituent declarations and 
statement lists of the procedure after substituting the actual parameters of the call 
for the formal parameters of the declaration. Control returns to the next statement in 
line. 

create statement creates the necessary environment for the execution of a proc 
dure as a"T&Qgrocess. A coproceSs is a separate synchronous process. Instecfoof the 
entire procedure b^mgexecuted and then returning in line, co^p:xr^es allow partial 
execution of a set of proce3i:H:^s with the single threod^jof'^ntroi being passed back 
and forth amongst them through the r^s^jijie staJjenTent. Subsequent resumption of a 
coprocess causes execution to commepi^0^itn>he^ccessor of the last executed 
resume statement of the co^jpc^ss. If a coprocess hasbeon created but not resumed, 
then execution ofgiH-^sume statement designating that coprocess">sq§es execution to 
commence,...Qt"^e constituent declaration list of the procedure used to cre&te^the co- 
Jess. 
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8.1 PROCEDURE DECLARATIONS 

<proceduredeclaration> ::=proc [xref] <procedure icleDHfier> |^ <parameter list>J 

<return type> 

I proc [<proc atlributes>] <procedure ident!fier> 

Kparameter Iisi'> <return type>i; 

<declaraHon lisfXstatement- list> procend [<procedure idenHner>] 
<procedure idenl-ifier> ::= <identifier> 
<function idenl-ifier> ::= <procedure idenl'ifier> 

The firsf form is used i-o refer to a procedure which has been compiled as part of a 
different unit of compilation* The procedure must have been declared with the xdcl 
attribute, and with an equivalent parameter list and return type in that unit. 

The second form declares the procedure identifier to be a procedure of the type 
specified by its parameter list and return type, and associates the identifier with 
the constituent declaration list and statement list of the declaration. 

The type of the procedure is elaborated on entry to the blo.ck in which it is declared 
and remains fixed throughout the execution of that block, i.e. , all variable bounds, 
lengths, or sizes are evaluated at that time. ' 

Outermost level procedures, i.e., those whose declarations are not contained in 
another procedure, must therefore have a fixed type determined at compile time. 
Thus none of its parameters may be of a variable bound type. Note that this 
restriction holds with respect to the xref form of declaration since by definition 
it must refer to an outermost level procedure (Section 8.1.1, PROC ATTRIBUTES). 
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8J.1 PROC ATTRIBUTES 

Proc attributes are essentially extra-IInguistic features In that they have an effect on 
the output produced by the compiler rather than an effect on the meaning of the 
program, 

<proc attributes> ::= <proc attribute> - | <proc attribute> } ■ 
<proc attribute> ::= xdcl J~-t:^p-d op I <isogmont idcntifior^ ■ 



The attribute xdcl may only be used on a procedure declared at the outermost level, 
i.e*, not contained in another procedure. It specifies that the procedure should be 
made referenceable from other units of compilation which have a declaration for the 
same procedure identifier with the xref attribute, 

ttribute repdep specifies that the procedure is potentially representation depeRd^nt 
and gives perrTTfeteo^for the use of those portions of the language^jijaf'are representa- 
tion dependent (see Chapter 

The attribute "segment .idej2tiB^t''**'^ecifies that the^^o^fe-pi:iqduced by the compiler 
for the body ji£--theprocedure should be allocated to the named segm^nf-along with 
TgT^ode and data carrying the same segment identifier. 
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8.1.2 PARAMETER LIST 

Variables that are referenced but not declared in the body of a procedure follow normal 
scope rules, i.e., the references are bound to the declaration environment of the pro- 
cedure. A parameter list is a set of variable declarations which provides a mechanism 
for the binding of references to the procedure call environment. This is accomplished 
by providing the procedure with a set of values and variables — so called actual param- 
eters — at the point of call. 

<parameter list> ::= (<parameter segment> | ; <parameter segment> }) 
<parameter segment> ::= <method> <parameters> | , <parameters> } 
<method> ::= vol I ref 

<parameters> ::= <parameter> | , <parameter> \ : — ["read] . <SWL type> 
<parameter> ::= <identifier> 

Two methods of passing parameters are provided — call -by-value, designated by vol, 
and call-by-reference, designated by ref. 

A call-by-value parameter results in the creation of a variable of the specified type 
local to the body of the procedure. The value of the corresponding actual parameter 
is assigned to this variable at the time of the procedure call. If the formal parameter 
is an adaptable array, string, or record then the variable thus created is an array, 
string, or record of the same size and shape as the corresponding actual, parameter. 

The type of a formal call -by-value parameter may be any data type or adaptable 
type except for the so-called non-value types. The non-value types are: file, 
stack, heap and sequence, arrays of non-value types, and records containing a field 
of a non-value type. 



bound 
ort variat 

or any of the non-value types 



N-B« Release 1 does not support variable types t adaptable typesi 
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A call -by-reference parameter results in the formal parameter designating the corres- 
ponding actual parameter throughout execution of the procedure. Assignments to the 
formal parameter thus cause changes to the variable that was passed as the correspond- 
ing actual parameter. 

The type of a formal call -by-reference parameter may be any SV/L type (including 
the non-value types, and the formal types — label, procedure and coprocess). 

The read attributoapplied to either kind of parameter prohibits explicit assignments 
*to that param e ter or any component of it. - 

The procedure type is elaborated on entry to the block in which it is declared, and 
remains fixed throughout the execution of that block, i.e., ail variable bounds, 
lengths, or sizes occurring in the type of the parameters are evaluated once on 
entry to the block, and remain fixed for all calls on the procedure within that 
block. 



8.1.3 FUNCTIONS AND RETURN TYPE 

A procedure may return a value of a specified type, in which case it is referred to as 
a function. A function is activated by a function designator (see Factors in Chapter 9) 
which is a component of an expression. The function is given a value by assigning to 
its procedure identifier. The type of the value returned is specified by the return 
type. 

<return type> ::= <basic type> 
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Examples: 



proc GCD (vol m , n : Integer; ref X , y , z : integer); 
var al , a2 , bl , b2 , c > d, q, r : integer; "m > 0, n > 0" 
"Greatest Common Divisor x of m and n. 
Extended Euclid^s Algorithm" 
ol := 0; a2 := 1; bl := 1; b2 := 0; 
c := m; d := n; 
while d /= do 

"al * m + bl * n = d, a2 * m + b2 * n = c, 

gcd(c, d) = gcd(m, n)" 

q := c / d; r := c mod d; 

a2 := a2 - q * al; b2 := b2 - q * bl; 

c :r: d; d := r; 

r := al; al :== a2; a2 := r; 

r :='b1; bl := b2; b2 := r 
whilend; • 

X := c; y := a2; z := b2 
"x = gcd(m, n), y * m -f z * n == gcd(m, n)" 
procehd 
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8.2 LABEL DECLARATIONS 

Label declarations serve to define those labels of the block which may be assigned 
to a pointer to label variable, passed as a parameter to a procedure or function, 
or serve as the destination of a goto exit statement which crosses a block or 
procedure boundary (see 10.3.8, GOTO STATEMENTS). ' 

<label declaration> ;;= label <label> { , <label> } • 
<label> ::= <identifier> 

All labels in the list must also appear in the block labeling a statement which is 
not contained within a nested block (see 10.0, STATEMENTS). 




ISUL requires all labels to be declared- 
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9.0 EXPRESSIONS ' 

Expressions are constructs denoting rules of computation for obtaining values of variables 
and generating new values by the application of operators. Expressions consist of oper- 
ands, i.e., variables and constants, operators, and functions. 

The rules of composition specify operator precedence according to five classes of opera- 

TL 7^^ P^S- operator .has . ,. , ^ i r n j u tu u 

tors. ■ The typ e t esting operators hav^Jhe highest precedence, rollowGa by the not 

- o p e r a t or / followed by the so-called multiplying operators, then the so-called adding 
operators, and finally, with the lowest precedence, the relational operators. Sequences 
of operators of the same precedence are executed from left to right and the left oper- 
and of a dyadic operator is evaluated before the right operand. The rules of precedence 
are reflected by the following syntax: 

<confomiily> :;~ <type iden [' ine r > <iype fe st opera t or> <union va r i -obfe^'*^''" 

• 1 ^poin t er va r iable> <poin.tor typo tost opcrator> <union variablQ> 
<factor> ::= <confQrmity> \ <variable> I <constant> 

Kdefinite value constructor> I A<variable> I A<label> ^ 
I A<procedure i.dentifier> 1 <function designator> ^ 
I (<expression>) I <not operator> <factor> 
<term> ::= <factor>l <term> <multiplying operator> <factor> 
<simple expres5ion> ::= <term> I <sign> <term> 

I <simple expression> <adding operator> <term> • ^.- 

<expression> ::= <simple expression> 

• I <simple expression> <relational operator> <simple expression> 
<^typ c I dentifior^* ;:~ <idcntifier> 
<union varia blG > ;;'^ <variable> 

<functiondesignator>::= <procedurereference>(<actual parameter>|,<actual parameter>[) 

Kproccduro rQforonco> ( ) 

M Release i does not support A<label> or a < procedure identifier> • • 
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<procedure reference> ::= <procedure iclentifier> I <po!nter to procedure>A m 
<actual paramefer> ::= <expression> I <procedure !denHfier> I <label> ^" 
<typQ te -€ f oporafor> i!~ «! 



* <poinfQr type test operator> i!" «!- 
<not operator> ;;= not 

<multiplying operator> ::= *-,!/! mod I and 
<sign> ::= + I - 

<add!ng operator> ::=.+ I - I or I xor 
<relationaI operator> ::= < I <= I > I >= I = I /= ! in 



Examples; 



Con Form iti& Sf ; pint ii = ^ basicvar 

freal n — b a sicvar 



Factors: 



Terms: 



X 






]5 






(x + y + z) 






f(x + y) 






$co!orset [re 


d. 


c, green] 


not p 






AG Ci,|l 






X * y 






r/3 






p and q 






(x <= y) and 


(y 


<z) 



M Release 1 does not support <pointer to procedure > • 
MN Release 1 does not support procedure or label parameters. 
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9.1 EVALUATION OF FACTORS 

'The value of a conformity as a fqcfor is fho boolean v ^alu© frue IF fhe fype fest Is 
>s uccG£sful and falsQ ofherv/IsQ (se ^ 912^1 y Typo Tosf OpQrafors)^ ' 

The value of a variable, as a factor, is the value last assigned to it as possibly 
modified by subsequent assignments to its componentSo 

The value of an unsigned number is the value of type Integer or real denoted by it In 
the specified radix system. 

String constants consisting of a single character denote the value of type char of the 
character between the quote marks. 

String constants of n (n > 1) characters denote the string (n) value consisting of the 
characters between the quote marks. 

The constant nil denotes a null pointer value of any pointer type. 

A constant identifier Is replaced by the constant It denotes. If this In trun is a 
constant identifier the process Is repeated until a constant of one of the above 
forms results. The value is then obtained as above. 

The value of a definite value constructor is the value obtained from the values of 
its constituent expressions of type specified by Its type identifier, - 

The value of an up-arrow followed by a variable of type T Is the pointer value of 
type aT that' designates that variable. 
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X + y 












-X 












hue! or 


hue2 










i * 1 + 


] 










hue - $1 


colorset 


[red. 


green" 






x= 1 












p< = 2 












(i<i) = 


(i<k) 










c in huel 
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The value of an up-arrow followed by a procedure identifier of proc type P is the 
pointer to procedure value of type A P that designates the current instance of declara- 
tion of that procedure. ^ 

The value of an up-arrow followed by a label is the pointer to label value of type 
Alabel that designates the current instance of declaration of the label (see 10.0, 
STATEMENTS). ^ 

A function designator specifies the execution of a function. The actual parameters are 
substituted for the corresponding formal parameters in the declaration of the function. 
The body is then executed. The value of the function designator is the value last 
assigned to the function identifier. The procedure reference must be to a procedure 
with a return type<, The meaning of, and restrictions on, the actual parameters is 
the same as for the procedure call statement (see lOoS.l). 

The value of a parenthesized expression is the value of the expression which Is en- 
closed by the parentheses. \ 

The type of the value of a factor obtained from a variable or function designator 
whose type Is a subrange of some scalar type is that scalar type. 



M Release 1 does noit support pointer to procedure or pointer 
to label values. 
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9.2 OPERATORS 

Operators perform operations on a value or a pair of values to produce a new value. 
Most of the operators are defined only on basic types, though some are defined on 
most typeso The following sections define the range of applicability, as well as 
result, of the defined operators. 



,1 TYPE TESTING OPERATORS 



The. type tesHrjgoperators are used to determine the type of the^^vdiue last assigned 
to a union variable/'^'^-^e type test operator (::) returns tl^v^DooIean value true if 
the type identifier on the TefksSpecifies the same ty^ as the type of the value of 
the union variable on the right, ariiKs^lse^offierwise. 




The pointer type test operator 
variable on the left is 
on the right. J 
the valu 



an value true if the pointer 

lue of the union variable 
Ijsed to designate 

r variable 



9.2.2 NOT OPERATOR 

The not operator, not, applies to factors of type boolean and set. When applied to 
type boolean the meaning is negation - i.e., not true = false and not false . = true. 
When applied to a set the meaning is set complement with respect to the base type • 
i.e., the set of all elements of the base type not contained in the specified set. 
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9.2.3 MULTIPLYING OPERATORS 

The following table shows the multiplying operators, the types of their permissible 
operands, and the type of the result. 



Operator 


Operation 


Operands 


Result 


* 


multiplication 


real 
integer 


real 
integer 


7 

• 
■ 


integer division 

for a, b, n positive integers 

a/b = n where n is the largest integer 

such that b * n < = a 
ea)A= (a)/(-b)-=.- (aA), a/b ^ (-a)/(-b) 


integer 


integer 


real division 


real 


real 


mod 


remainder function 

a mod b = a - (a/b) * b 


integer 


integer 


and 


logical *and' 

true and false = false, true and true = true 

false and false = false, false and true= false 


boolean 


boolean 


set intersection 

- the set consisting of elements common 

to the two setSo 


set of type 


set of type 
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9.2.4 SIGN OPERATORS 

The + operator can be applied fo integer and real types only. It denotes the identity 
operation and results in integer or real type respectively — i.e., a 5 + a. 

The - operator can be applied to integer and real types only. It denotes sign 
inversion — i.e., -a = jZl — a. 



9.2.5 ADDING OPERATORS 

The following table shows the adding operators, the types of their permissible 
operands, and the type of the result. 
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Operator 


Operation 


Operands 


Result 


+ 


addition 


integer 
real 


integer 
real . 


■ 


subtraction 


integer 
real 


integer 
real 


boolean difference 

true « true = false, true - false = true 

false - true = false, false — false = false 


boolean 


boolean 


set difference 

— the set consisting of elements of the 
left operand that are not also elements 
of the right operand. 


set of type 


set of type 


or 


logical 'or* 

true or true = true, true or* false E true » 


boolean 


boolean 


false or true.s true, false or false, sfialse 


set union 

- the set consisting of all elements of 

both sets. 


set of type 


set of type 


xor 


exclusive 'or' 
true xor true = false 
true xor false = true 
false xor true = true 
false xor false = false 


boolean 


. boolean 


symmetric difference 

- the set of elements contained in either 

set but not both sets 


set of type 


set of type 
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9.2.6 RELATIONAL OPERATORS 

Relational operators are the primary means of testing values in SWL. They return the 
boolean value true if the specified relation holds between the operands, and the value 
false otherwise. 



9.2.6,1 Comparison of Scalars, Reals, and Strings. 

All six comparison operators < (less than), <= (less than or equal to), > (greater than), 
>= (greater than or equal to), = (equal to) and /= (not equal to) are defined between 
operands of the same scalar type, operands of type real , and operands of type string or 
string and char . 

For operands of type integer or real they have their usual meaning. 

For operands of any ordinal type T, a = b if and only if a and b are the same value; 
a < b if and only if a precedes b in the ordered list of values defining T, 

For operands of type string (n) or string (1) and char, comparison is defined in the 
following way: 

If one of the operands is of type char it is converted to the string (1) value consisting 
of that character; otherwise the strings must be of the same length. 

Let n be the length of the resulting string values a and b (n >= 1), and op be any 
of the six comparison operators, then: 
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a o£ b |ff a (1) o£ b (1) 

or a (I) - b (i) for all i (1< = < k) 
and a (k) op b (k) (1< k < = h) 

9«2.6.2 Relations Involving Sets 

The relation a in S is true if the scalar value a is a member of the set value So The 
base type of the set must be the same as, or a subrange of, the type of the scalar. 

The* set operations = (identical to), /= (different from), <= (is included in), and 
>= (includes) are defined between two set values of the same base type. 

SI = S2 is true if all members of SI are contained in S2, and all members 

of S2 are contained in SI. 
SI /= S2 is true when SI = S2 is false. 

SI <= S2 is true if all members of SI are also members of S2. 
SI >= S2 is true if all members of S2 are also members of SI. 



9.2.6.3 Relations Involving Other Types 

Certain types in the language cannot be compared. These are stacks, heaps, sequences, 
unions, variant records, arrays of non-comparable component types, and records con- 
taining a field of a non-comparable type. The remaining types (including pointers 
to non-comparable types) are comparable for equality (=) and inequality (/-). 
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Two arrays are equal If their types are the same (I.e., subscript bounds and component 
types are Identical) and elements v/ith corresponding subscript values are equal. 

Two records are equal If they are of the same type and their corresponding fields 
are equal. 

Two pointers to procedure are equal If they designate the same instance of declaration 
of a procedure. ^ 

Tv/Q polntors to coproc arc equal if they designato the same coprocesso 

Two pointers to label are equal if they designate the same Instance of definition 
c>f G Idbel. ^ 

Pointers of other types are equal If they designate the same variable. For adaptable 
pointers this means that their Instantaneous type (i.e.. Including bounds or lengths) 
must be the same as the pointer they are being compared witho mm 

The following table shows the relxitlonal operators, the types of their permissible 
operands, and the type of the result. 



M Release 1 does not support pointers to procedure or pointers 
to label- 

WM Release 1 does not support adaptable types. 
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. Operator 


Operation 


Left Operand 


Right Operand 


Result 


< 
<= 
> 
>= 

/= 


- less than 

- less than or equal to 

- greater than 

- greater than equal to 

- equal to 

- not equal to 


any scalar type T 
real 

string (n) 
string 0) 
char 


T 

real 

string (n) 
char 
string (1) 


boolean 
boolean 
boolean 
boolean 
boolean 


]n 


set membership test 


any scalar type T 

■ 


set of T' 
where T' is T 
or a subrange 
of T 


boolean 


/= 
<= 

>= 


- identity 

- different 

- is contained in 

- contains 


set of T 
where T is any 
scalar or subrange 
type 


set of T 


boolean 


/= 


- equal to 

- not equal to 


any comparable 
type T 


T 


boolean 
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10.0 STATEMENTS. ■ \ 

Statemenfs denote algorithmic actions, and are said to be executableo A statement 
list denotes an ordered sequence of such actions. A statement is separated from its 
successor statement by a semicolon. The successor to the last statement of a state- 
ment list is determined by the structured statement or procedure of which it forms a 
part. 

A statement may be labelled by preceding it by an identifier followed by a colon. 
This allows the statement to be explicitly referred to by other statements (e.g., goto, 
exit, cycle). Such a labelling of a statement constitutes the declaration of the 
Identifier as a label, and hence the identifier must differ from all other identifiers 
declared in the same blocko. 

If an identifier labels a statement of the constituent statement list of a procedure 
declaration (see Section 8.0) or a begin statement (see Section 10.2pl), then its 
scope is that procedure declaration or begin statement. If it labels a statement 
of one of the constituent statement lists of other structured statements (see section 
10.2), then its scope is that statement list. Thus it is impossible to refer to a 
label contained within a procedure declaration or structured statement from outside 
that declaration or statement, or from other statement lists of the same structured 
statemento ^ 

A label may optionally follow a structured statement other than the repeat state- 
ment, in which case is must be identical to one of the labels labelling that statement. 
This is for checking purposes only, and does not affect the meaning of the program. 



M This paragraph in the SUL specification -C 7. Dec 73 > is 
incorrect and must be replaced- 
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<statemenl- lisf> ::= <st-afennent> ] ;<si-ai-ernen1->f 

<stai-emeni-> ::= <unlabellecl statement> I <label> ; <Gi-afQmonf> <uhlabened 

^ • , ^ ^ X.V. statement > 

<unlabelied statement> ::= <assignment 5fafement> 

1 <structured stai'ement-> l<Iabel>J 

. I <controi si'al-emeni'> 

I <storage managemeni- statement-> 

I <inpu{'-outpui- stai'ement> 

<label> ::= <idenl-ifier> 



Example: 



check range: if vol < then tagfld := 

orif val > bound then tagfld:= bound 
else tagfld := vol 



ifend check range 
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lOJ ASSIGNMENT STATEMENTS 

The assignment statement is used to replace the current value of a variable by a hew 
value derived from an expression, or to define the value returned by a function 
designator. 

<assignment statement> ::= <variab!e> := <expression> 

I <function identifier> := <expression> 

The left part of the assignment operator (•:=) is evaluated to obtain a reference to some 
variable. The expression on the right is evaluated to obtain a value. The value of the 
referenced variable is replaced by the value of the expression. 

The variable on the left may not be of type file , sequence, stack or heap, nor may 
it be an array of such, nor a record containing a field of those types. 

The variable on the left and the expression on the right must be of identical types 
except as noted below: 

!♦ The type of the variable may be a subrange of the type of the 
expression. If the value of the expression is not a value of the 
subrange the program is in error. 



iable 



van 

may be any one^ 
In this case, the ty 



a union variable, then the value of the 



from which, 
expression as^ 



ion 

fiTon type was united, 
value is 
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3. If the left part is a string or substring designator of length 1, then 
the expression may be a char value, and if the left part is of type 
char then the expression may be a string value of length !• 

4. If the left part is a variable bound array then the expression must be 

an array with the same current values and types of subscript bounds, 

packing attribute, and component type. ^ 
■ ■•'■'■ 

5. If the left part is an adaptable pointer to type, the expression must 

be d pointer to one of the types to which the pointer can adapt. ^ 

Note that generally a pointer value has a finite lifetime (see Section 5) different 
from that of the pointer variableo Procedures, labels, and automatic variables cease 
to exist on exit from the block in which they were declared. Allocated variables 
cease to exist when they are freed or popped. Attempts to reference them via a 
designator beyond their lifetime is a programming error and could lead to disastrous 
results. 



Examples; 



i := 1 + 1 ptrl :=Aa[i] myunion ;= true 

a [i] := 15 a := b [i] myunion := x/lS^O 

ptrl := ptr2 ^D]*~ ^D/l] errorbranch:=Al obeli 

buffer (i,20) := "ERROR IN DECLARATION" strptr -Abuffer(i) 



M Release 1 does not support variable bound or adaptable types- 
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10.2 STRUCTURED STATEMENTS 

Structured statements are constructs composed from statements lists. They provide for 
storage allocation and scope control^* selective execution, or repetitive execution of 
their constituent statement lists. 

<structured statement> ::= <begin statement> m 

I <if statement> I <loop statement> 

I Xwhile statement> I <repeat statement> 

I <for statement> I <case statement> 

I <variant case statement> i Kconformity case s t a t emen t > 

10.2.1 BEGIN STATEMENTS "" 

Begin statements are blocks, and constitute the scope of their constituent declarations. 
On entry to the begin statement all declarations are evaluated, and storage allocated 
for automatic variables. The statement list is then executed. On exit, either through 
completing execution of the last statement of the statement list or through an explicit 
transfer of control, all identifiers declared within the begin statement become inacces- 
sible, and the values of automatic variables become undefined. 

The successor of the last statement of the statement list of a begin statement is the 
successor of the begin statement. 

<begin statement> ::~ begin <declaration lis t> <statement Iist> end 

Example : 

begin var temp: integer ; temp := i, i := j; { := temp end 

M Release 1 does not support the begin statement. 
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10.2.2 IF STATEMENTS 

The If statement provides for the execution of one of a set of statement lists depend- 
ing on the values of Boolean expressions.' The Boolean expressions following the if 
or orif symbols are evaluated in order from left to right until one is found whose 
value is true . The subsequent statement list is then executed. 

If all Boolean expressions are false then either no statements or the statement list 
following the else symbol is executed. 

The successor to the last statement of a constituent statement list of- an if statement is 
the successor of the if statement. 

<if staiement> ::= <al ternati ve pdrt$> ifend 

I <alternative parts> else <stGtement list> ifend 
<alternative parts> ::= if <expre$sion> then <$tatement list> 

I orif <expression> then <st'atement list>[ 



Examples; 



If X < y then x := y ifend 

if X <= 5 then z := y + 1; y := y + 5 

orif X > 30 then z := y * y; y := z 

orif X = 15 then z := y * z 

else z :=^ z * z; y := 2 * z + 15 

ifend 
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Examples: 

whiie aCil /= x do i := i + 1 whilend 
while I > do 

if odd (i) then z := z * x ifend ; 

i := i /2; . 

x := X * X 
whilend 

10.2.5 REPEAT STATEMENTS 

A repeat statement controls repetitive execution of its constituent statement list. 

<repeat statement> ::= repeat <statement list> until <expres5ion> 

The expression controlling repetition must be of type Boolean. The statement list 
between the symbols repeat and until is repeatedly (and at least once) executed 
until the expression becomes true. The repeat statement 

repeat S until e 

is equivalent to 

begin S; if e then else repeat S until e ifend end 

The successor of the last statement of the constituent statement list of a repeat state- 
ment is the expression following until. 
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Example ; 



repeat k := i mod {; 

i := i; 

i:=k 
until i := 

10.2.6 FOR STATEMENTS 

The for statement indicates that its constituent statement list is to be repeatedly exe- 
cuted while a progression of values is assigned to a variable which is called the 
control variable of the for statement. 

<for statement> ::= for <control variable> := <for Iist> do <statement list> fore.nd 
<for list> ::= <initial value> to <final value> by <incromont> 



I <initial value> downto <final value> - 



4 



by <dccrcmcnt> 
<control variable> ::= <variable> 
<initial va!ue> ::= <expression> 
<final value> ::= <expression> 
<Incr0mont> :;= <QxprGS$ion> 
> <docromont> !;= <oxproDcion> 

The control variable, initial value, rinal value and Incromont or dccromcnt. must all be 
of the same scalar type or subranges of the same type. Tho control variable may not bo 



d component of a packod^or crammed " Gtructurcy>and v/hon tho "by" option is used must 
bo typo integer or subrange thcrcofi ISUL requires the control variable to 

be simple and either local or global. 
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The sequence of values assigned to the control variable for which the statement list 
is executed, is determined solely by the initial value final value, and incremont 
■ o r decrement s Assignment to the control variable on a given iteration will cause 
its value to be changed for the remainder of that iteration, but its value will be 
reset to the next value of the sequence prior to the next iteration. 

The initial value final value, and increment or decrom ef^ are evaluated once on 
entry to the for statement, as is the name of the control variable. Thus, subsequent 
assignments to components of these expressions have no effect on the sequencing of 
the statement. 

If the initial value is greater than the final value in the "to" form, or if the initial 
value is less than the final value in the "dov/ntc"foiTn, then no assignm.ent is made 
to the control variable and the statement list is not executedo 

If no assignment is made to the control variable by the statement list, and the state- 
ment is exited normally, then the value of the control variable is the final value. 

A for statement of the form 

for w := i to n do S forend 

IS equivalent to 



SWL LANGUAGE SPECIFICATION 10,2.6 

For Stafements 

10.0 Sfatemenfs 7 December 1973 

10.2 Strucfured Statements Page: 10-11 



begin var control : aTYPE (w), temp, limit : TYPE (w) 

control := aw; temp :=i; limit :=n; 

jf temp <= limit then 

while temp < limit do_ control a:= temp, S; temp :=#succ(temp) whilend ; 

control A := temp; 

;. -: S; 

rfend 
end 

where control, temp and limit are identifiers not appearing in the statement list S, and 
TYPE is a function returning the type of its argument (not available in SWL)o 

A for state^ment df the form 

for w := ! downto n do S forend 

is equivalent to 

begin var control : aTYPE(w), temp, limit : TYPE(w); 

control := aw; temp := i, limit := n; 

if temp >= limit then 

while temp > limit do control a := temp; S; temp =#pred(temp) whilend ; 

control A := temp; 

. Si ■ 

ifend 
end 
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for statement of the form 
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The successor to the last statement of the constituent statement list of a for statement 
is the calculation of the next value of the temporary control variable. 

Examples ; 

for i := 2 to TOO do if a DD > max then max := a[il ifend forend 

for i := 1 to n do 

for I := n dov/nto 1 do 
X := 0; 

for k := 1 to n do x := x + aCi, kH * bCk, jD forend; 
cCi, jU := X 
forend 
forend 

for c := red to blue do q(c) forend 

10.2.7 CASE STATEMENTS 

A case statement selects one of its component statement lists for execution depending on 
the value of an expression. 

<case statement> ::= case <seIector> of<cases> else <statement lisf> casend 

<selector> ::== <expression> 

<cases> ::= <a case> | ; <a case>| 

<a case> ::= == <selection spec> {, <se!ection spec>[ = <statement list> 

<selection spec> ::= <constant scalar expression> •• <constant scalar express! on> 
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The case statement selects for execution that statement list'(if any) which has a 
selection specification which includes the value of the selector. If no selection speci- 
fication includes the value of the selector the statement list following else is selected 
when the else option is employed; otherwise the program is in error. 

The selector and all selection specifications must be of the same scalar type or sub- 
ranges of the same type. No two selection specifications may include the same 
volues (i.e., selection must be unique). 

The successor of the last statement of a selected statement list Is the successor of the 
case statement. 

Examples: 

case operator of 

= plus = X := X + y; 

= minus = x := x - y; 

= times = X := X * y 
casend 



case i of 




- 1 = 


X := sin(x); 


> 2 = 


X := cos(x); 


= 3 = 


X := exp(x); 


= 4 = 


X := ln(x) 


else 


X := - X 


casend 
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10.2.8 VARIANT CASE STATEMENTS 

A variant case statement Is used fo allow access to the variant fields of a record 
according to the value of its tagfieldo 

<variant case statement> :;= case tag <tag selector> of <cases> 

I else <statement list> casend 
<tag selector> ::= <record variable> • <tagfield> 
<record variable> ::= <variable> 
<tagfield> ::= <identifier> 
<cases> ::= <a case> |; <a case>| 

<a case> ::= = <selection spec>|;.<seIection spec>[ = <statement list> 
<$electionspec> ::= <constant scalar expression> Lo <constant scalar expression> 

Each selection specification list must identify a set of values which is identical to, or 
a subset of, the set of values which select a unique variant associated with the tag 
field in the corresponding record definition. The field identifiers of that variant are 
available as field selectors in the associated statement list« 

If the value oF the tagfield differs from the values of all selection specifications the 
statement list following else is selected and none of the field identifiers of the variants 
are made available as field selectors; if else was not specified the program is in error. 

The successor of the selected statement list is the successor of the variant case statement. 
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Examples : 

type lextype = (basic, inconst, realconst, stringconst, identifier), 
symbol = record 

case lex : lextype of 

= basic = name : symbolid, class : operation 
= inconst = value ; integer , optimiz : boolean 
= realconst = value : real 

= stringconst = length : 1..255, stringbuf ; Astring (*) 
= identifier = identno : integer, decl : Asymbolentry 
casend 
recend; 

var cursym : symbol, sign : boolean := false; 

LI : insymbol; 

L2 : case tag cursym* lex of 

= basic ~ if cursym^symbolid = minus then sign := not sign; goto LI 

orif cursym* symbolid = plus then goto LI 

else error ^missing operand') 

I fend ; 
= intconst = cursym* optimiz := (cursym. value < halfword) or pwr2 (cursym* value); 

if sign then sign := false; cursym* value := - cursym. value ifend; 
= realconst - if sign then sign := false; cursym. value := - cursym* value ifend; 
= stringconst = error ('string constant where arithmetic type expected'); 
= identifier = cursym. decl := symbolsearch (cursym. identno); 

if cursym. declA^typ /= constdecl Hien variable (cursym- decl ) 

else cursym := cursym- dec I a. value a; goto L2 

ifend 

casend 
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10^.9 CONFORMITY CASE STATEMENTS 

A confOTmity case statement selects for execution one of its component statement lists 
depending GO the type of the value last assigned to a union variable. 

<conformiiysvCase statement> ::= 

case union XjnIonvariable> of <conformity cases> else <sta^dment list> casend 
<union variable> ^^f <varlable> 

<conformity cases> ::^N<a conformity case> |;<a conforrrj^iy case>j 
<a conformity case> ::= <)ype specification> = <stat^ent list> 
<type specification> .::= <poiiTher variable> 
<pointer variable> ::= <variable> 

Each type specification must be a pointer vopi'able to one of the types of the union 
variable, and must be of a type differenj/trom all\^her type specifiers in the state- 
ment (i.e., type selection must be unlque)o If one of\he type specifiers is a pointer 
to the type of value last assignecKto the union variable, iKwill be assigned a pointer 
to that value and the associated statement list will be execute^ Within the statement 
list the pointer followed l2fy an up arrow may be used to refer to fkie vol ueo 

If none of the typ^pecifiers match the type of the value of the unionvprlable the 
statement list fdfl owing else is executed; if the else part is omitted the program is in 
error^ 

TheyarOccessor of the selected statement list is the successor of the conformity case 
^tement. 
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^x^mpl 




(ref u : union (Integer, boolean), S : string(*))2, 
yar pint lA Hiiteger , pbool : a boolean; 
case union u of 
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10.3 CONTROL STATEMENTS 

Control statements cause the creation or destruction of execution environments, the 
transfer of control to a different execution environnient or to a different statement in 
the same environment, or both, 

<controI statemenf> ::= <proceclure call statemenf> 

■ 1 <crQai-Q sl-at-Qmont> I <dostroy stafomonf> 
* 'l <rosumo sfat-omQnf> I <cycle sf"atement> 
I <exii statemenf> I <return statement> 
I <goto sf"atemenf'> 1 <empty stat'ement> 

10.3.1 PROCEDURE CALL STATEMENT 

A procedure call statement causes the creation of an environment for the execution of 
the specified procedure and transfers control to that procedure. 

<procedure call statement> ::= <procedure refercince> <actual parameter Iist> 
<procedure reference> ::= <procedure identlfier> I <pointer to procedure>A m 

<actual parameter list> ::= (<actual parameter> |,<actual parameter>[) 

I <empty> 
<actual parameter> ::= <expression> I <procedure identifier> mm 

I <IabeI> 

The actual parameter list must be compatible with the formal parameter list of the pro- 
cedure. An actual parameter corresponds to the formal parameter which occupies the 
same ordinal position in the formal parameter list. 

w Release 1 does not support pointer to procedure. 
^^ Release 1 does not support procedure or label parameters. 
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The corresponding acfual and formal parameters must be of the same type except for 
the following: 

1. If the formal parameter is call-by-value, the actual parameter may be 
any expression which could be assigned to a variable of the type of 
theformal. (See 10.1 ASSIGNMENT STATEMENTS) 

2o If the formal parameter is an adaptable string, the actual parameter 
may be a string variable or substring designator of any length. If 
the formal were call-by-value then the actual may also be a string 
value. ^ 

3p If the formal parameter is an adaptable array, the actual parameter 
may be any array variable with the some packing attribute, number 
of dimensions, types of subscripts, and component type. If the 
formal were coll-by-value then the actual may also be on array 
value with the same restrictions. ^ 

4« If the formal parameter is an adaptable record, the actual parameter 
may be any record whose type is the same except for the shifty 
field. The shifty field must be an adaptable string, array, or record 
and the conditions under 2, 3, or 4 hold with respect to it. m 

5. If the formal parameter is a call-by-ref procedure, then the actual 
parameter must be a procedure reference to a procedure with the 
same ordered list of parameter types and return type, wn 

6. If the formal parameter is a call-by-ref label, then the actual 
parameter must be a label reference, mm 

w Release 1 does not support adaptable types. 
MN Release 1 does not support procedure or label parameters. 
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A call-by-value parameter causes the creation of a variable local to the procedure 
of the type of the formal parameter, and assigns the value of the actual parameter 
to it. If the formal is an adaptable array, string or record, the local variable is 
a fixed bound array, string or record of the same size and shape as the actual. 

A call-by-ref parameter causes the formal parameter to designate the actual parameter 
throughout execution of the procedure. Assignments to the formal parameter thus cause 
changes to the corresponding actual parametero An actual parameter corresponding to 
a call-by-ref formal parameter may never be a component of a packed array or record. 

Examples: 

tnsymbol 

transpose (a, n, m) 

sum (fct, 0, 1000, x) 

)^3^CREATE STATEMENT 

The create statem^jTt causes the creation of a coprocess from the speciffe^^ procedure, 
and establishes the env]tc>A[nent (including parameter list) forthd^xecution of that 
procedure as a coprocess. TheitkLQtity of the create^i-^^oprocess is assigned to the 
specified pointer to coproc. On compleTt^o^^^^^fme create statement, a resume state- 
ment using the pointer to coproc wpyfa cause exS^sution to be resumed at the consti- 
uent declaration list (if ariy)"^ the body of the procedur§>>s^he procedure specified 
in the create stat^m€nt is designated the primary procedure of the>sQ^ocesSo Exiting 
it througjxfnormal return or a continue, exit, return or goto statement whU^ the 
jfocess is still active is an error* 
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<create statement> ;;= create (<pointer to coproc>, <procedure call statement>) 
<pointer to coproc> ::= <variable> 



Example: 



create (nes^tsymbol , macro expander (source-file)) 

10.3.3 DESTROY STAtHaeNT 

The destroy statement causes fhe destruction of the coproce^specified by the pointer to 
coproc and sets the pointer to nrL Storage allocoted h/the coprocess is returned, and 
subsequent attempts to resume the coprocess or access variables local to it are in error, 
A destroy statement designating the copKocess in/which it occurs is an error. 

<destroy statement> ::= destroy (<p;?mter to coproc> { ,<pointer to coproc>|) 
<pointer to coproc> ::= <variay^> 



Example: 



destroy (nextsymbol 



10.3.4 RESUME STATEMENT 

The resume >2TOtement causes execution of the current coprocess to be susjtended, and 
executiorrto continue at the successor of the last executed resume statemenXof the 
spedmed coprocess. If the specified coprocess had just been created, executiob 
l«umes at its constituent declaration listo 
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^me statement designating a destroyed coprocess or the coprocess in which i] 
occurs ishvverror. 




10.3.5 CYCLE STATEMENT 

The cycle statement allows the conditional by-passing of the remainder of the state- 
ments of the constituent statement list of the designated repetitive statement, thus 
cycling it to its next iteration (if any)o 

<cycle statement> ::= cycle <label> when <expression> 

The label must label a repetitive statement (for, repeat, while or loop statement) which 
statically encompasses the cycle statement, i.e., the cycle statement must be within the 
scope of the label. If no label is specified then the continue statement must be a 
statement of the constituent statement list of a repetitive statement, and it is that 
repetitive statement that is cycled. 
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The expression following when must be a boolean expression, if the value of the 
expression is true, or the when clause does not occur, then execution continues at 
the successor of the last statement of the constituent statement list of the designated 
structured statement or procedure. Otherwise, execution continues at the successor 

of the cycle statement. 

•■■.'' 

Thus, the cycle statement has the effect of (potentially) re-executing the statement 
list of a repetitive statement such as for, repeat, loop, or while. 

Examples; 

for I = 1 to n do cycle when x < a[ij; x -^ Q [i] forend 
cycle outerloop when sum <= eps 



10.3.6 EXIT STATEMENT 

The exit statement causes execution to continue at the successor of the designated 
structured statement or procedure when the condition is true or non-existento If 
no label or procedure is specified then execution continues at the successor of the 
immediately containing structured statement or procedure. 

<exit statement>::= exit <label or proc identifier> when <expression> 
<label or proc identifier> ::= <label> I <procedure identifier> 



Exomph 



repeat exit when key = ^ [f]# « •" * ^ 1 until i > n 
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10.3.7 RETURN STATEMENT 

The return statement causes. the current procedure to return when the expression Is 
true or non-existent; i.e*, the successor of a return statement is the successor of the 
last statement of the constituent statement list of the procedure or function in which 
It is embedded. 

<^return statement> ::= return when <expression> 

Example: 

return when next term < epsilon 

• 10.3.8 GOTO STATEMENT 

<goto statement> ::= ^goto [exit] <label reference> 
<!abel reference> ::= <label> I <pointer to label>A m 

The goto statement names as its successor the labelled statement designed by the label 
or by the value of the pointer to label. ^ 

If the label reference is to a label outside the current block, then the form goto exit 
must be used, and the label must have been declared in a label declaration in the 
declaration list of its block; otherwise the form without exit is used, «« 

If the pointer to label designates a statement in a procedure thqt has already been 
exited, or a statoment in a coprocQss othor than the one in which the goto statement 
oocurs/ then the goto statement is in error. ^ \ 

M Release 1 does not support pointer to label. 
Mw ISlilL requires all labels to be declared in a label declaration* 
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Examples: 

gbfo exit errexit 

goto label array [symbol number] a 

10.3.9 EMPTY STATEMENT 

An empty statement denotes no action and consists of no symbol So 



<empty statement> ::= 
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10.4 STORAGE MANAGEMENT STATEMENTS ^ 

There are three storage types — stack, sequence, and heap — defined in the language, 
each with its ov/n unique management and access characteristics, A variable of any 
of these types represents a structure to which other variables may be. added, referenced, 
and deleted under program control according to the discipline implied by the type of 
the storage variable. Storage management statements are the means for effecting this 
control, 

<storage management statement> ::= <push statement> I <pop statement> 

I <next statement> I <reset statement> 
I <al locate statement> I <free statement> 

ALLOCATION DESIGNATOR 

An allocation designator specifies the type of the variable to be managed by the storr 
age management statements. It is either a pointer to tyep, in which case a variable 
of that type is designated, or it is an adaptable pointer variable followed by a type 
fixer which defines the adaptable bound, length or size, in which case it is a 
variable of the fixed type that is designated, 

<alIocation designator> ::= <pointer variable> 

I <adaptable pointer to array> : £<bounds list>2 

I <adaptable pointer to stacl<> : L^expression>] 

I <adaptable pointer to record> : £<bounds list>2 

I <adaptable pointer to string> : (<length>) 

1 <adaptable pointer to sequence> : <span>|,<span>f) 

I <adaptable pointer to heap> : (<span>{,<span>}) ^« 

<span> ::= <integer expression> rep <type> 

H Release 1 does not support stacks or sequences-, and the only heap 
supported is the universal heap. ^ ■ ^ 

**** Release 1 does not support adaptable types. 
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Examples : 

procvector : CO .. lOH 

garbage : (35 rep rinds, 15 rep pits, grounds) 

10.4.1 PUSH STATEMENT ^ 

The push statement causes a new element to be added to the specified stack. It is 
accessible through the stack variable followed by an up arrow. " 

<push statement> ::= push <stack variable> 
<stack variable> ::= <variable> 

Examples ; 

push operator stack 
"new top element is 
operator stack a" 



10.4.2 POP STATEMENT^ 

The pop statement causes the top element of the stack to be removed (i.e., last allo- 
cated element). The previous element is now available through the stack variable 
followed by an up arrow. If no elements remain in the stack, the stack variable 
will have the value nil. 



<pop statement> ::= pop <stack variable> 



M Release 1 does not support stacks. 
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Examples : 

pop operator stack 

10.4.3 NEXT STATEMENT ^ 

The next statement sets the allocation designator to designate the current element of 
the sequence, and causes the next element to become the current element. After a 
reset or an allocation of a sequence the current element is the first element of the 
sequence. Note that the ordered set of variables comprising a sequence is determined 
algorithmically by the sequence of execution of next statements. 

If the execution of a next statement vvould cause thennew current element to lie out- 
side the bounds of the sequence, then the allocation designator is set totthe value nil. 

<next statement> ::= next <al location designator> in <sequence variable> 
<sequence variable> ::= <variable> ' 

Example : 

next length ptr in buf; 

next string : El.* length ptr aU in buf 

10A4 RESET STATEMENT^ 

The reset statement causes positioning In the sequence. The current element becomes 
either the first element of the sequence or the element specified by the allocation 
designatoPo The use of an allocation designator which was not set by a next state- 
ment for the same sequence is an error. 

M Release 1 does not support sequences. 
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<reset sl'atemeni-> :;= reset <sequence variable> to <a!Iocation designat'or> 
Example ; 

reset buf to length pfr 

10.45 ALLOCATE STATEMENT 

The allocate statement causes the allocation of a variable of the specified type in the 
specified heap and sets the allocation designator to designate that variable or to the 
value nil if there is insufficient space for the allocation. If a heap variable is not 
specified, the allocation takes place out of the universal (system defined) heap. ^ 

<allocate statement> ::= allocate <allocation designator> in <heap variable> 
<heap variable> ::= <variable> 
Examples: 

allocate my-stack ; CSOIl 
allocate sym ptr in symbol table 

10.4.6 FREE STATEMENT 

The free statement causes the deletion of the specified variable from a heap, thus 
making its storage available for subsequent allocate statements. If the allocation 
designator was not set as a result of a previous allocate statement for the same heap 
the effect is undefined. 



M Release 1 supports the universal heap only. 



M 
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<free statement> ::= free <al location designator> \]n <heap variable> m 

Examples: 

free sym ptr in symbol table 
free my stack 



M Release 1 supports the universal heap only. 
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10.5 INPUT-OUTPUT STATEMENTS ^ 

Two file types are accommodated: binary Tiles which consist of a linear sequence of 
SWL variables, and fext files which consist of a sequence of entities called 
lines. There is a system defined mapping between lines and string(n) which may 
differ depending on the source or destination device for the line. Statements that 
cause transmission from such a file are provided with an additional field to specify 
the number of characters in the internal representation of the line. 

<input-output statement> ::= <write binary statement> 

I <write line statement> 
I <read binary statement> 
I <read line statement> 
I <set mode file statement> 
I <rewind statement> 
I <write eof statement> 



10.5.1 WRITE BINARY STATEMENT 

A write binary statement causes the value of an expression to be transmitted to the 
specified binary file. 

<write binary statement> ::= put (<file variable>, <expression>) 

Example: 

put (intermediate text , symbol jstring) 

M Release 1 does not support files or the SUL I/O statements. 
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10.5.2 WRITE LINE STATEMENT 

The write line statement causes the transmission of a string value as a line to the 
specified file. 

<write tine statement> ::= put (<file variable>, <string value>) 
<$tring value> ::= <expression> 

Examples; 

put (listingi. 'missing loopend symbol') 
put (listing, line buffer) 

10.5.3 READ BINARY STATEMENT 

The read binary statement causes the transmission of a value from the file to a variable* 
If the sequence of types read is different from the sequence written, the result is un- 
defined. An attempt to read beyond the end of information causes the built in func- 
tion eof (<file variable>) to return true . 

<read binary statement> ::= get (<file variable>, <variable>) 
Example: 



get (intermediate text, symbol string) 



* 
N.B. Release 1 does not support files or the SUL I/O statements^ 
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10.5.4 READ LINE STATEMENT 

The read line sfatement causes the next line to be transmitted from the file as a 
string to the specified variable. The number of characters transmitted is stored in 
the variable specified by the third parameter. An attempt to read beyond the last 
line causes the built-in function eof (<file variable>) to* return the value true . 

<read line statement> ::= get (<file variable>, <string variable>, <no. read>) 

<string variable> ::= <variable> 

<no. read> ::= <variable> . 

The string variable must be a variable of type siring (n), and no. read must be an 
integer variable. If the line transmits as more than n characters it is truncated on 
the right before storing into the string variable. 

Example ; 

get (source fiie, line^buffer, line length) 

10.5.5 SET MODE FILE STATEMENT 

The set mode file statement sets the mode of the file to read or write mode, A file 
cannot be written if it is in read mode, and cannot be read in write mode. The 
file is initially in a neutral mode and is set to read or write mode by the first get 
or put statement on it. 

<set mode file statement> ::= mode (<file variable>, <file mode>) 
<fl!e mode> ::= read I write 

N.B. Release 1 does not support files or the SUL I/O statements. 
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Example ; 

mode (intermediate text, read ) 

10.5.6 REWIND STATEMENT 

The rewind statement repositions the file at its beginning and sets eof (<flle varfable>) 
to false . It has no effect on the file mode. 

<rewind statement> ;;= rewind (<file variable>)- 

Example ; 

rewind (intermediate text) 

10.5.7 WRITE EOF STATEMENT 

The write eof statement causes a file in write mode to record information such that . 
on a subsequent attempt to read it beyond the current position the built-in function 
eof (<file variable>) can return the value true . 

<write eof statement> ::= weof (<file variable>) 

Example : 

weof (intermediate text) 



N»Bv Release 1 does not support files or the SUL I/O statements. 



SWL LANGUAGE SPECIFICATION " 



11.0 Standard Procedures and Functions 

11.1 Standard Procedures 



11. 1,1 

Translate 

7 December 1973 
Page: 11-1 



11.0 STANDARD PROCEDURES AND FUNCTIONS 

Certain standard procedures and functions have been defined for the SWL which have 
been included because of the assumed frequency of their use or because they would 
be difficult or impossible to define in the language in a machine-independent way. 

11.1 STANDARD PROCEDURES 

Tl^ following standard procedures assign values of type string. 



11.1. 1 ^^nslate (s, t, d) 



converts the elements of s according to/fne trans- 
late table t and assigns them to dy/^ , t and d 
must all be strings. "S and djwst have the same 
length. 

The result is: d(1}/^t($int(S(i))) for all elements 
ofd. 



11. 1.2 "^stringrep (vol, substr, 
width , decimals ) 



cony^^s the value, vol, which may be of type 
fnteger, r^ql, or boolean to a string representa- 
tion in "widthNcharacters. The result is stored 
'^ <'he string substr . H^tegers are represented as 
decimal numbers with leo^iTig zeros blank sup- 
pressed. Reals are representeoN^s decimal 
numbers with exponent base 10, an^x" decimals" 
digits after the decimal point. BooleansHire 
represented by true or false, right justified crnis 
blank filled. 
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11.2 STANDARD FUNCTIONS 



The following standard functions return values of the specified t/pe. 



11.2.1 #abs(x) 



computes the absolute value of x. The type of x 
must either be real or integer ^ and the type of 
the result is the type of x. 



/sign(x) 



11.2.3 #succ(x) 



returns the value 1 if x >0, 
the voiye^'trif x = 0, ' 
lorthe value -1 if x < 0. 

X must be integer or reaJT -^^oRdJlhe -result is 
the same type as x. 

X is of any scalar or subrange type, and the 
result is the successor value of x (if it exists). 



11.2.4 #pred(x) 



x IS of any scalar or subrange type, and the 
result is the predecessor value of x (if it exists). 



1 1. 2. 5 $integer(x) 



returns the ordinal number of the scalar value x. 
x must be an ordinal type, char , or real; if x 
is real then the value returned is an integer y of 
the same sign as x such that abs(x)-l < abs(y) 
<=abs(x)o 



SW.L LANGUAGE SPECIFICATION 



n.O Standard Procedures and Functions 
11.2 Standard Functions 



11.2.6 

$real(x) 

7 December 1973 
Page: 11-3 



11.2.6 $real(x) 



returns a value of type real that approximates 
the integer value x. Note that $integer($real(x)) 
does not necessarily equal x. 



11.2.7 $char(x) 



x must be an integer value <= x <= 255. The 
value returned is the character whose ordinal 
number is x. 



11.2.8 $string(l,sDfill]) 



11.2.9 #strlength(x) 



returns a string value of length I obtained from 
the string s by 

(a) truncating s on the right if length of s > I, or. 

(b) appending characters on the right if length 
of s < I. The characters appended are 
blanks, or the character value of fill when 
it is specified. 

returns the length in terms of number of char- 
acters of the string x. ^ 



11.2.10 "^lowerbound (array, n) 



returns the value of the n'th lower bound of the 
array. The type is the index type of that dimen- 
sion of the array. The left most subscript position 
is numbered 1. ^ 



11.2. 11 "^upperbound (array, n) returns the value of the n'th upper b^und of the 

array. The type is the index type of that dimen- 
sion of the array. The left most subscript position 
is numbered 1. ^ 
M Release 1 does not support ^strlengthi >* lower bound t or **upperboand. 
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11.2.12 #eof (file) 



returns the value true if the end-of-file condi- 
tion exists for the specified file. Returns false 
Qtherwise. ^ 



- 11.2. 13 — ^coprocid 



returns the valuo of type coproc of the coprocess 
in which it is oxQCut o^-r 



lhs2. 14 "^rel (pointer [, storage]) 



produces a relative pointer value from a pointej/ 
and storage variable. The relative pointejxts 
of the same type as the pointer. The^sult is 
undefined if the pointer does nojxdesignate an 
element of the storage varjpKle. If the storage 
variable is not suppli^drhe default heap is 
used. 



11.2. 15 "^ptr (relative pointer 
[/Storage variable]) 



Js u$ed/to convert a relative pointer to a pointer, 
opd^ required when using a relative pointer. 
It returnSsO pointer of the same type as the rela- 
tive pointer. 

Example ; 

type myheap = heap^^ rep integer) ; 
var rptr : rel (myheap) >Qteger , 
• h *: myheap, 
X : Integer; 
X := ^ptr (rptr, h)A; 



M Release 1 does not support *^eof- 
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3 REPRESENTATION DEPENDENT 



11.3. 1 /lobs/argument) 



returns a pointer to the argument Vj^hfch can be 
directly assigned to any poirvtd^type. 



11.3.2 "^size (argument) 



returns the numbei>m cells required to contain 
a variable oLme same type as the argument. 



11.3.3 #offset(u,base) 



re^drhs^an integer value n which is the offset of 
the varlabl^vu in number of cells from an integral 
multiple of baseVd I boundary. 0^ n < base. 



1 1 . 3. 4 "^malignment/(;^gument, 
offset,^^e) 



assigns the offset and base alignment required 
for a variable of the same type asl43 first 
argument, to its second and third argurnfeqts 
respectively. 



